помогите очень надобно !!!!!

7. Program jdgk;
var a,b: integer;
begin
b:=0;
writeln(a);
readln(a)
if agt;0
then b:=a+15
else b:=a+25
writeln(b)
end.

8. n=7

9. if Agt;0
then writeln('Положительное')
else writeln('Отрицательное')

Если Аgt;0, то положительное
по другому отрицательное.

10. если хgt;5 то y:=x-5
по другому y:=5*x*x (или 5*sqr(x))

If хgt;5 then y:=x-5
else y:=5*x*x (либо 5*sqr(x))

11. If = Если

12. Then = Тогда

13. Else = Иначе