Var
i : integer; //объявляем переменную цикла
Begin
For i:= 19 to 99 do // 19 - первое двузначное удв-е условию, 99 - последнее. проходим циклом от 19 до 99
if i mod 9 = 0 then // если текущее число при делении на 9 дает остаток "0", то
Writeln(i); // выводим это число
end.