Pascalio užduotys

1. Duotas skaičių intervalas nuo a iki b. Sudarykite programą rasti nelyginių skaičių sumą.

2. Duota skaičių seka: 1;3;6;10;15... Rasti n-tąjį sekos narį.

3. Duotas reiškinys 1 + 1/2 + 1/3 + 1/4 .... rasti pirmūjų n narių sumą.

Gal kas galit išspręst padėt? :) :D

Pirmas:

program nelyginiai;
var a,b,x,i:integer;
begin
read(a ,b);
for i:=a to b do
if i mod 2 <> 0 then x:=x+i;
writeln(x);
end.

Antras:

program ntasis;
var n,x,i,d,c:integer;
begin
read(n);
for i:=1 to n do
begin
d:=d+1;
x:=x+d;
end;
writeln(x);
end.

Trecias:

program suma;
var n,i:integer;
x:real;
begin
read(n);
for i:=1 to n do
x:=x+1/i;
writeln(x:4:2);
end.

Dėkui, būtų gerai ir kitų :)

Editinau savo pirma posta.