Урок 13.1 Задача 15

Урок 13.1 Задача 15

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

var i, j, M: integer;
  begin
    i:=8;
    readln(M);
    if (M<8) then
      writeln('Errror')
    else
      repeat
          for j:=1 to 3 do
            begin
              if (i>M) then
                break;
              if j=3 then
                write(3,' ')
              else
                begin
                  write(i,' ');
                  i:=i+2;
                end;
            end;
         until i>M;
    readln();
  end.