1) написать программу, которая считает сумму, в pascal abc 1+1/2+1/3+...+1/28, используя цикл while
2) написать программу, которая считает сумму, в pascal abc 1+1/2+2+1/3+3+1/4...+1/10+10, используя цикл while
3) написать программу, которая считает сумму, в pascal abc 1-2+3-4+...-28, используя цикл while

решите хотя бы две, пожалуйста

1)

var i,a:integer;

c:real;

begin

i:=1;

c:=0;

while i<=28 do begin

c:=c+1/i;

i:=i+1;

end;

writeln(c);

end.

2)

var i,a:integer;

c:real;

begin

i:=2;

c:=1;

while i<=10 do begin

c:=c+1/i+i;

i:=i+1;

end;

writeln(c);

end.

3)

var c,i:integer;

begin

c:=0;

i:=1;

while i<=28 do begin

if i mod 2 = 1 then c:=c+i else c:=c-i;

i:=i+1;

end;

writeln(c);

end.