Решение задач

Вывести все чётные числа от 1 до n
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;
end.
2)С помощью цикла со счётчиком.
var i, n:integer;
begin
Writeln('введите n');
readln (n);
i=0
for i:= 1 to n do
if i mod 2=0 then
writeln(i);
 i:=i+1
end.
3) С помощью цикла с постусловием
var i, n:integer;
begin
Writeln('введите n');
readln (n);
i:=0;
while i<= n do
begin
if i mod 2=0 then
writeln(i);
i:=i+1
end;
end.