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

Задача 16 урок 13.1

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

8 10 3 12 14 3 16 18 3 20 22 3 и т.д.

program U131Z16;
var n,s,m: integer;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(n);
  if n<0 then
    writeln('oshibka')
  else
  begin
    s:=0;
    m:=8;
    while m<=n do
    begin
      write(m,' ');
      m:=m+2;
      s:=s+1;
      if (s=2) then
        begin
        write('3 ');
        s:=0;
        end;
    end;
  end;
  readln();
end.