Помогите написать программу в Паскале ... Дано трехзначное число х найти сумму его цифр, среднее арифметическое и записать число в обратном порядке.

Var

m, n, n1, n2, n3, n4:integer;

begin

Write ('Введите трехзначное натуральное число: ');

Readln (n);

n1: = n mod 10;

n2: = (n mod 100) div 10;

n3: = n div 100;

m:=n1+n2+n3;

Write ('сумма цифр: ', m);

Write ('среднее арифметическое: ', m/3);

m = 100*n1 + 10*n2 + n3;

Writeln (' в обратном порядке: ', m)

end.