II/19

program II;//название
var//объявление переменных
i, j: integer;//индекс
begin
    for i:= 1 to 9 do//перебираем первую и последнюю цифру
        for j:= 0 to 9 do//перебираем вторую цифру
            Write(i, j, i, ' ');//выводими комбинацию
end.