program ciag_arytmetyczny;

var m,r:real;

a:array [1..20] of real;

i,n:integer;

begin

writeln ('Program liczy kolejne wyrazy ciagu arytmetycznego');

writeln ('Podaj pierwszy wyraz ciagu ');

readln(a[1]);

writeln ('Podaj ilosc wyrazow ciagu mniej niz 20 ');

readln (n);

writeln ('Podaj roznice ciagu ');

readln (r);

for i:=1 to n do

begin

writeln ('Wyraz ciagu nr ', i,' wynosi ',a[i]:6:2);

a[i]:=a[i]+r;

end;

readln;

end.

program ciag_arytmetyczny;

var m,r:real;

a:array [1..20] of real;

i,n:integer;

begin

writeln ('Program liczy kolejne wyrazy ciagu arytmetycznego');

writeln ('Podaj pierwszy wyraz ciagu ');

readln(a[1]);

writeln ('Podaj ilosc wyrazow ciagu mniej niz 20 ');

readln (n);

writeln ('Podaj roznice ciagu ');

readln (r);

for i:=1 to n do

begin

writeln ('Wyraz ciagu nr ', i,' wynosi ',a[i]:6:2);

a[i]:=a[i]+r;

end;

readln;

end.

program ciag_arytmetyczny;

var m,r:real;

a:array [1..20] of real;

i,n:integer;

begin

writeln ('Program liczy kolejne wyrazy ciagu arytmetycznego');

writeln ('Podaj pierwszy wyraz ciagu ');

readln(a[1]);

writeln ('Podaj ilosc wyrazow ciagu mniej niz 20 ');

readln (n);

writeln ('Podaj roznice ciagu ');

readln (r);

for i:=1 to n do

begin

writeln ('Wyraz ciagu nr ', i,' wynosi ',a[i]:6:2);

a[i]:=a[i]+r;

end;

readln;

end.

---