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

program ap;var a,d,k,i:integer;beginwrite('Введите первый член арифметической прогрессии: ');readln(a);write('Введите разность арифметической прогрессии: ');readln(d);write('Введите величину K: ');readln(k);writeln('Ниже выведены ',k,' чисел заданной арифметической прогрессии');for i:=1 to k dobegin  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.