Задача в Паскале. Выведите на печать любые K чисел арифметической прогрессии с заданной разностью прогрессии d и начальным значением a.

Var a, d, c, i:integer; begin write ('Введите первый член арифметической прогрессии: ') ; readln (a) ; write ('Введите разность арифметической прогрессии: ') ; readln (d) ; write ('Введите количество чисел ар. прогрессии: ') ; readln (c) ; writeln ('Ответ') ; for i:=1 to с do begin write (a,' ') ; a:=a+d * (i-1) ; end; end.

Program ap;

var a, d, k, i:integer;

begin

write ('Введите первый член арифметической прогрессии: ') ;

readln (a) ;

write ('Введите разность арифметической прогрессии: ') ;

readln (d) ;

write ('Введите величину K: ') ;

readln (k) ;

writeln ('Ниже выведены ', k,' чисел заданной арифметической прогрессии') ;

for i:=1 to k do

begin

write (a,' ') ;

a:=a+d;

end;

end.