Реализовать программу нахождения n-ого члена арифметической прогрессии:
a) С помощью цикла
b) С помощью рекурсии
Pascal (желательно)

1.var a1,an,d,n,i:integer;beginreadln(a1,d);readln(n);an:=a1;for i:=2 to n do an:=an+d;writeln('an = ',an);end.2.function f(a1,d,k:integer):integer;beginif k=1 then f:=a1 else f:=f(a1,d,k-1)+d;end;var a,r,n:integer;beginreadln(a,r);readln(n);writeln('an = ',f(a,r,n));end.Пример:3 25an = 11