begin
var n := ReadInteger('Введите двухзначное натуральное число:');
var (n1, n2) := (n div 10, n mod 10);
var nn := n1 > n2 ? 10 * n1 + n1 : 10 * n2 + n2;
nn.Println;
(nn - n).Println
end.
Введите двухзначное натуральное число: 155540var a:integer;
begin
readln (a);
if a div 10 = a mod 10 then
begin
writeln (a);
writeln (0)
end else
if a div 10 > a mod 10 then
begin
writeln (a div 10,a div 10);
writeln ((a div 10 + a div 10*10)-a)
end else
begin
writeln (a mod 10,a mod 10);
writeln ((a mod 10 + a mod 10*10)-a);
end
end.
