Вывести на экран все трехзначные числа оканчивающиеся на 23 в столбец на Паскале

program zz1;

var i:integer; / /заводим переменную для цикла

begin

for i: = 1 to 9 do / /организуем цикл для перебора всех возможных сотен

writeln (i, 23); / /выводим на экран вначале количество сотен, потом к сотням прилепляем 23, а команда writeln выведет эти числа в столбец

end.