Программа работает неправильно.

[Настюня]

Решила задачу: "Вывести элементы арифметической прогрессии в диапазоне от N до M, если известны первый элемент А и разность D".
Программа работает неправильно: не выводит самый младший элемент заданного диапазона и выводит лишний самый последний. Помогите, пожалуйста, найти ошибку в решении! (Pascal)

program w8;
uses crt;
var a,d,n,m,x,k:integer;
begin
a:=2;
d:=3;
k:=0;
writeln('vvedite diapason');
readln(n,m);
while x<=m do begin
      x:=a+d*k;
      if x>=n then writeln(k+1,' element = ',x);
      k:=k+1;
      end;
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[s-andriano]

Поменяйте местами строки с вычислением икса и выводом его на печать.

[Serge_Bliznykov]

есть парочка "скользских" моментов в вашем решении...

но, попробуйте так:

program w8;
uses crt;
var a,d,n,m,x,k:integer;
begin
a:=2;
d:=3;
k:=1;
repeat
  writeln('vvedite diapason');
  readln(n,m);
until n<m;
x:=a; {обязательно нужно присвоить X начальное}
while x<=m do begin
      if x>=n then writeln(k,' element = ',x);
      x:=a+d*k;
      k:=k+1;
      end;
readln;
end.