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