Question

помагите пожалуйста ​

Answer 1

№1

program qq;

var a:integer;

begin

readln(a);

if a>0 then

begin

a:=a-10;

writeln(a);

end;

if a<0 then

begin

a:=a+10;

writeln(a);

end;

if a=0 then

writeln(a)

end.

№2

programm qq;

var a,b,c:integer;

begin

readln(a,b);

if a>b then c:=a-b;

if a<b then c:=b-a;

writeln(c);

end.

№3

program qq;

var a:integer;

begin

readln(a);

if a<10 then a:=a*5;

if a>10 then a:=a/2;

writeln(a)

end.