Составить программу, выводящую на экран все двузначные числа, у которых первая цифра четная.

Var i:integer;
begin
for i:=20 to 89 do
 if i div 10 mod 2 = 0 then write(i,' ');
end.

Результат:
20 21 22 23 24 ... 85 86 87 88 89