Решение задачи №6 из главы 13.1

Решение задачи №6 из главы 13.1

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

var m, i: integer;
begin
  writeln('vvedite celoe chislo');
  readln(m); //вводим число
  if (m <= 0)  then
      writeln('ochibka')
  else
     for i := 1 to m do
          write(i, ' ');
  writeln();
  writeln('zaversheno!');
  readln();
end.