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

Спасибо,она точно будет работать?

Точно будет работать, тут всё предельно ясно) Сейчас поясню.vari,k,a1,d:integer; //задаём тип переменных (целочисленные) begin Writeln('Введите количество, a1, d') ; //выводим на экран сообщение readln(k,a1,d); //вводим количество чисел, значение a1 и d for i:=1 to k do // выполняем цикл счёта каждого a(n) числа writeln('a-',i,' = ',a1+(i-1)*d);

Спасибо за объяснение)

Не за что)