Сможете посодействовать составить программки Паскаль по 7, 8 и 9 задачке?

7. program n7;  

var a: real;

begin  

writeln ('Введите число');

readln (a);

if (agt;-10) and (alt;10) then  

 a:= a + 5

else

 a:= a-10;

writeln (a);

end.

8. program n8;  

var a: real;

begin  

writeln ('Введите число');

readln (a);

if (agt;100) and (alt;-100) then  

 a:=0

else

 a:= a+1;

writeln (a);

end.

9. program n9;  

var a: real;

begin  

writeln ('Введите число');

readln (a);

if (agt;=2) and (alt;=5) then  

 a:= a+10

else

if (agt;=7) and (alt;=40) then

 a:= a-100

else

if (alt;=0) or (agt;3000) then  

 a:= a*3  

else  

 a:= 0;

writeln (a);

end.