Задача 1 Урок 11

Задача 1 Урок 11

1.Решите с помощью цикла while:Пользователь вводит целое число N, большее 8.Выведите на экран последовательность четных чисел от 8 до N,
Например:
для N=21:
8 10 12 14 16 18 20
для N=22:
8 10 12 14 16 18 20 22

var n, a: integer;
begin
  writeln('vvedite chislo n bolshe 8');
  readln(n);
  a := 8;
  while (a <= n) do 
   begin
      if (a <= n) then
        write(a, ' ');
       a := a + 2 ;
    end;
  readln;
  end.          


Вывод консоли:
vvedite chislo n bolshe 8
30
8 10 12 14 16 18 20 22 24 26 28 30