Решите графическую : напишите все возможные двухзначные числа которые получатся с чисел 1, 3, 5 и 7.?

//Для любых 4 чисел
var a,b,c,d:char;
begin
read(a,b,c,d);
writeln (a+b);writeln (a+c);writeln (a+d);writeln (c+b);writeln (d+b);writeln (c+d);
writeln (b+a);writeln (c+a);writeln (d+a);writeln (b+c);writeln (b+d);writeln (d+c);
end.