{* Задача 340 *}

Unit ZADACH340;
Interface
Implementation
Begin
 writeln('Вывести на экран n чисел арифметической последовательности Формула: an=a1+(n-1)*d; ');
End.

Program b;

Uses zadach340.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : integer;
  n : integer;
  d : integer;
  k : integer;
  i : integer;
Begin
  writeln(' Введите число a1');
  readln(a);
  writeln(' Введите число n');
  readln(n);
  writeln(' Введите число d');
  readln(d);
  writeln('a1= ', a);
  For i := 2 To n Do {* Переменная i увеличивается с 2 до n *}
  Begin
    k := a + (i - 1) * d;
    writeln('a ', i , ' = ', k);
  End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.