{Przy Sn tylko dla danych naturalnych (iteracje)}
program ciag_a;
uses crt;
var i,j,a1,an,r,Sn: integer;
    klawisz: char;
    label pocz;
Begin
pocz:
clrscr;
gotoxy(16,10);
write('1. Suma ciagu arytmetycznego.');
gotoxy(16,12);
write('2. N-ty wyraz ciĄgu arytmetycznego.');
gotoxy(16,14);
write('3. Wyjscie.');

klawisz:=readkey;
case klawisz of
'1':
begin
clrscr;
write('Podaj pierwszy wyraz ciagu: a1 = ');readln(a1);
write('Podaj ostatni wyraz ciagu: an = ');readln(an);
write('Podaj roznice ciagu: r = '); readln(r);
Sn:=a1;
i:=a1;
        repeat
        i:=i+r;
        Sn:=Sn+i;
        until i=an;
writeln('Suma ciagu wynosi: Sn = ',Sn);
readln;
goto pocz;
end;

'2':
begin
clrscr;
write('Pirwszy wyraz ciagu: a1 = ');readln(a1);
write('Roznica ciagu: r = ');readln(r);
write('Ile wyrazow jest w ciagu? n = ');readln(an);
write('N-ty wyraz ciagu: an = ',a1+(an-1)*r);
readln;
goto pocz;
end;

'3':
begin
end;

end; {do case}

End.