Ответ:

pascal

Объяснение:

var n, s:integer;

begin

 Write('Введите число: ');

 ReadLn(n);

 while n > 0 do

 begin

   if (n mod 10 < 6) then s := s + n mod 10;

   n := n div 10;

 end;  

 WriteLn(s);

end.