Задача на уроке 1

var i,n:integer;
begin
writeln('Введите число');
readln(n);
i:=0;
repeat
if i mod 2=0 then
begin
writeln(i);
i:=i+1;
end;
until i=n;
end.