Решить,завтра на контрольную,от этого зависит четвертная.pascal

1.

Program amt;

var z,y:integer;

begin

 writeln('Введите числа Z и Y:');  

 read(z,y);

 if(z-y > 1) then writeln((z-y)*2)

 else writeln(z+y);

end.

4.

a)1

b)8

c)10

Если нужна программа:

Program amt;

var a,b,z:integer;

begin

 writeln('Введите A и B:');

 readln(a,b);

 z:=10;

 if not(a>b) then z:=z

 else if (b<0) then z:=z-2

 else if not(b<0) then z:=1;

 writeln(z);

end.