Найти среднее значение цифр заданного целого трехзначного числа.

Как можно быстро

var a,a12,a1,a2,a3,s: integer;

begin

readln(a);

a1:=a div 100;

a12:=a mod 100;

a2:=a12 div 10;

a3:=a12 mod 10;

s:=a1+a2+a3;

writeln(s);

end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа

Объяснение:

надеюсь если не в падлу отметь как самый лучший ответ :3