Дано трехзначное число: 1) Найти сотни, десятки и единицы, 2) Найти сумму и произведение его цифр, 3) Найти число, полученное при прочтении исходного числа справа налево, 4) В числе зачеркнули первую слева цифру и приписали ее справа. Найти полученное число.
ДАЮ МАКСИМУМ БАЛЛОВ

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger;  var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);  Writeln('Cотни ',s,', десятки ',d,', единицы ',e);  Writeln('Сумма цифр ',s+d+e,', их произведение ',s*d*e);  Writeln('Справа налево: ',100*e+10*d+s);  Writeln('Перестановка сотен в конец: ',100*d+10*e+s)end.Пример328Cотни 3, десятки 2, единицы 8Сумма цифр 13, их произведение 48Справа налево: 823Перестановка сотен в конец: 283