Информатика: (Pascal abc) Дано трехзначное число, определить сумму, произведение, средне арифметическое значение цифр этого числа.
Поменяйте местами первую и третью цифру этого числа.

var sum,p,x,z:integer; begin writeln('Введите трёхзначное число'); read(x); sum:=x mod 10 + x div 100 + x div 10 mod 10; p:=(x mod 10) * (x div 100) * (x div 10 mod 10); z:=(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100); writeln('Сумма цифр =',sum); writeln('Среднее арифметическое цифр =',sum/3); writeln('Произведение цифр =',p); writeln('После перестановки 1 и 3 цифр =',z); end.