Составте программу выводящую ** экран четные числа от 10 до 20, по одному числу в строке

Question

Составте программу выводящую на экран четные числа от 10 до 20, по одному числу в строке

Answer 1

Var i:integer;
begin
for i:=10 to 20 do
begin
if (i mod 2=0) then writeln(i);
end;
end.