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

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

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

writeln(c);

end.

№3

program qq;

var a:integer;

begin

readln(a);

if a

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

writeln(a)

end.