Печатать все четные числа от 50 до 100. Паскаль

Question

Печатать все четные числа от 50 до 100. Паскаль

Answer 1

Var
    i: integer;

begin
    for i := 50 to 100 do
        if i mod 2 = 0 then
            writeln(i);
end.