Program chisla;
var a,b:integer; — не знаю, может и real; — как в условии
begin
write(‘ введите два числа’);
readln(a,b);
if a*b<0 then writeln(2*a*b) else writeln(1.5*a*b);
end.
Program chisla;
var a,b:integer; — не знаю, может и real; — как в условии
begin
write(‘ введите два числа’);
readln(a,b);
if a*b<0 then writeln(2*a*b) else writeln(1.5*a*b);
end.