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

var i:integer;beginfor 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