Перевести ** алг. яз.Program qwerty; var a,b:integer; c:real; begin read (a,b); c:=a*b;...

Question

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

Answer 1

алг qwerty

нач

цел a, b

вещ c

ввод a, b

c:= a*b

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

иначе c:=c*1.5

все

вывод c

кон