Дано двузначное число. Из цифр этого числа вывести все двузначные числа, которые можно составить из данного числа

Program gt;

var n, i, a, b:integer;

begin

read (n) ;

a:=n div 10;

b:=n mod 10;

for i:=0 to 9 dowriteln (a, i) ;

if (ab) then begin

for i:=0 to 9 do

writeln (b, i) ;

end;

end.

uses crt; / / подключение модуля CRT, чтобы результат был в новом окне

var i, a, b: integer; / / описание переменных

begin

readln (i) ; / / ввод двузначного числа

a:=i div 10; / / первая цифра числа

b:=i mod 10; / / вторая цифра числа

write (a, a,' ', a, b,' ', b, a,' ', b, b) ; / / вывод искомых чисел на экран

end.