Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.
Ответ записать в формате writeln(e:4:1).
тогда после запятой будет 1 символ
Эйлер - известный европейский математик, он очень долго жил и умер в России, в Петербурге.