Вот программа, сделанная на Паскале.
program qq;
var a, b, c: real;
begin
Writeln(‘Введите 2 числа’);
Readln(a,b);
if (a*b)<0 then c:=(a*b)*(-2)
else
c:=(a*b)*1.5;
Writeln(‘Получилось число:’, c);
end.
Вот программа, сделанная на Паскале.
program qq;
var a, b, c: real;
begin
Writeln(‘Введите 2 числа’);
Readln(a,b);
if (a*b)<0 then c:=(a*b)*(-2)
else
c:=(a*b)*1.5;
Writeln(‘Получилось число:’, c);
end.