Классная работа

Задача №1

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

Задача №2

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

Задача №3

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