Помогите пожалуйста. Быстрее. Даю 20 баллов

Question

Помогите пожалуйста. Быстрее. Даю 20 баллов

---

Answer 1

Ответ:

42

Объяснение:

var

x,sum:integer;

begin

read(x);

sum:=5;

sum:=sum+x mod 10;

x:=x div 5;

sum:=sum+x mod 10;

x:=x div 4;

sum:=sum+x;

write(sum);

end.

вставил в прогу

вроде норм