program PermutationNumber;
varnumber, digit1, digit2, permutationNumber: integer;
beginwriteln('Введите двузначное число: ');readln(number);
digit1 := number mod 10;digit2 := number div 10;
permutationNumber := digit1 * 10 + digit2;
writeln('Число, образованное перестановкой цифр исходного числа: ', permutationNumber);end.
program PermutationNumber;
var
number, digit1, digit2, permutationNumber: integer;
begin
writeln('Введите двузначное число: ');
readln(number);
digit1 := number mod 10;
digit2 := number div 10;
permutationNumber := digit1 * 10 + digit2;
writeln('Число, образованное перестановкой цифр исходного числа: ', permutationNumber);
end.