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

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.

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.