Безотлагательно!!!!! 40 баллов!!!

1) abcegij

2)Z=15;

A=18.

3) 2

4)Var

 x,y: Integer;

begin

x:=x+y;

y:=x-y;

x:=x-y;

end.

5) Не указан тип переменной, не стоит точка в самом конце

6) If (xgt;y) then

write(x);

else:

write(y)

7) Var

 x,y: Integer;

begin

readln(x, y);

write(x+y);

end.

8)Var

 x,y,z: Integer;

begin

readln(x, y, z);

write(z, y, x);

end.