Информатика: (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.