Помогите с программированием! Нужно составить 3 программы на Паскале, используя for,...

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
var x,z:real;
for var i:=0 to 18 do begin
    x:=-3+0.5*i;
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8)
    end;
end.

Результат
-3.0     0.02603404
-2.5     0.05396053
-2.0     0.05396053
-1.5     0.15941934
-1.0     0.15783283
-0.5     0.11009307
0.0     0.10000000
0.5     0.16817855
1.0     0.21459633
1.5     0.16205869
2.0     0.16205869
2.5    -0.47852157
3.0    -0.48851066
3.5    -0.38218382
4.0    -0.18498749
4.5     0.00385685
5.0     0.00385685
5.5     0.30151270
6.0     0.23243357

№2

begin
var x,z:real;
x:=-3;
while x<=6.01 do begin<br>    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
    end;
end.

№3

begin
var x,z:real;
x:=-3;
repeat
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
until x>6.01
end.

Помогите с программированием! Нужно составить 3 программы ** Паскале, используя for,...