Question

Ввести 2 числа. Если их произведение отрицательно, умножить его на 8 и вывести на экране, в противном случае увеличить его в 1,5 раза и вывести на экран. (Написать программу, начертить блок-схему).

Answer 1

program qwerty;
var a,b:integer; c:real;
begin
read (a,b);
c:=a*b;
if c<0 then c:=c*8
else c:=c*1.5;
write (c);
end.