Написать программу, которая находит сумму цифр двузначного числа, введенного с клавиатуры и число, образованное перестановкой цифр исходного числа.

Var x,y,z:byte;
begin
read(z);
x:=z div 10;
y:=z mod 10;
writeln('Сумма равна:',x+y,'  Новое число: ',y,x)
end.