Перевести на алг. яз.
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 ©;
end.

алг qwerty

нач

цел a, b

вещ c

ввод a, b

c:= a*b

если c<0 то c:=c*8

иначе c:=c*1.5

все

вывод c

кон