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


var i,n:integer;
begin
writeln ('Bведите n');
readln(n);
i:=0;
repeat
while i=n do
if i mod 2=0 then
begin
writeln (i);
i:=i+1;
end;
until i=n;
end.



var i,n:integer;
begin
writeln ('Bведите число');
readln(n);
for i:=1 to n do
if ((i mod 2)=0) then
writeln(i);
readln;
end.