Найдите N-ый член арифметической прогрессии (N>0) c некоторым шагом арифметической прогрессии d>0 т.е. . Первый член арифметической прогрессии следует ввести с клавиатуры. Если можно с использованием циклов.

СПОСОБ С ЦИКЛАМИ:Program test ;Var d, a, :real; n, i:integer;BeginWrite ('введите a1: ');Readln(a) ;Write(' введите шаг арифм. прогресии: ');Readln(d);Write('введите номер члена арифм. прогресии:');Readln(n);For i:=1 to n do a:=a+d;Writeln(n, ' член арифметической прогресии равен : ', a);End. СПОСОБ БЕЗ ЦИКЛОВ:Program test ;Var d, a, :real; n, i:integer;BeginWrite ('введите a1: ');Readln(a) ;Write(' введите шаг арифм. прогресии: ');Readln(d);Write('введите номер члена арифметической прогресии: ');Readln(n);Writeln(' ответ: ', a+d*(n-1));End.