Question

написать программу у pascal даю 100 балов​

Answer 1

Ответ:

var

x,y:integer;

begin

read(x);

if x<=0 then

writeln('y=', x+20)

else

writeln('y=', x*20);

end.