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