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

1)var x,y:integer;beginreadln(x);y:=(abs(x) mod 10)*10+(abs(x) div 10);if x<0 then y:=-y;writeln(y);end.Пример:-25-522)var x,x1,x2,x3:integer;beginreadln(x);x:=abs(x);x1:=x div 100;x2:=x div 10 mod 10;x3:=x mod 10;writeln('S = ',x1+x2+x3,' P = ',x1*x2*x3);end.Пример:271S = 10 P = 14