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

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.