Вывести четырёхзначное число и посчитать среднее арифметическое цифр в паскале

Var

A, S:integer;

Begin

Write ('A = ') ; ReadLn (A) ;

While A0 do

Begin

S:=S + A mod 10;

A:=A div 10;

End;

WriteLn ('S = ', S/4)

End.

Ну или так:

Var

A, S:integer;

Begin

Write ('A = ') ; Read (A) ;

S:=S + A mod 10;

S:=S + (A div 10) mod 10;

S:=S + (A div 100) mod 10;

S:=S + A div 1000;

Write ('S = ', S/4)