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

1

program qq;

var a:integer;

begin

readln(a);

if agt;0 then

begin

a:=a-10;

writeln(a);

end;

if alt;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 agt;b then c:=a-b;

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

writeln(c);

end.

3

program qq;

var a:integer;

begin

readln(a);

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

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

writeln(a)

end.