Помогите, пожалуйста. Задача, которую нужно решить ** Паскале методом while. Ввести число...

Question

Помогите, пожалуйста. Задача, которую нужно решить на Паскале методом while.
Ввести число N и M, увеличить по +1 N до M циклом и вывести каждый шаг,

Answer 1

Var
  n,m:integer;
Begin
  write('Введите числа n,m (m>или=n) ');
  Readln(n,m);
  if m>=n then while m>=n do Begin
    write(n,' ');
    n:=n+1;
  End else write('Неправильно введён диапазон');
End.  

Comments

А почему неправильно введён диапазон?

---

потому что n должен быть меньше m

Answer 2

Var n,m:integer;
begin
readln(n,m);
while n<>m do begin
n:=n+1;
writeln(n);
end;
end.