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.