помогите плиз паскаль

а понятно это нужно обьяснить предельно точно посмотреть внимательно и подумать очень хорошо так ты и поймеш

program p23;

var
n: integer;
rez: integer;
proz: integer;
sum: integer;
one, dec, hun: integer;

begin
writeln('Введите любое число');
readln(n);
writeln('Заданое число', ' ', n );
one := n mod 10;
writeln('Цыфра единиц числа', ' ', one);
dec := (n div 10) mod 10;
writeln('Цыфра десятков числа', ' ', dec);
hun := n div 100;
writeln('Цыфра сотен числа', ' ', hun);
rez := one + dec + hun;
proz := one * dec * hun;
if hun = 0 then
begin
rez := one + dec;
proz := one * dec;
end;
if dec = 0 then
begin
rez := one + hun;
proz := one * hun;
end;
if (dec = 0) and (hun = 0) then
begin
rez := ONE;
proz := one;
end;
if one = 0 then
begin
rez := dec + hun;
proz := dec * hun;
end;
if proz > rez then
begin
sum := proz - rez;
end
else
begin
sum := rez - proz;
writeln('Разница равна', ' ', sum);
end;
end.

Писец

Program p23;
const
n=5;
var
sr:double;
k,l,b,c,d:double;
begin
writeln('Введите первое число');
readln(k);
writeln('Введите второе число');
readln(l);
writeln('Введите трете число');
readln(b);
writeln('Введите четвёртое число');
readln(c);
writeln('Введите пятое число');
readln(d);
sr:=((k+b+l+c+d)/n);
writeln('Среднее значение равно',sr);
end.