Урок 13.1. Задача 7.

Урок 13.1. Задача 7.

var a, i : integer;

begin
  while (true) do
  begin
    write('Enter an integer : ');
    readln(a);
    if (a > 0) then
    begin
      for i := 1 to a do
        if (i mod 2 = 0) then
          write(i, ' ');
    end
    else
      writeln('This is mistake');
  end;
  read();
end.