Program aa;
Uses crt;
Var
a,b: integer;
s: real;
Begin
readln(a);
s:=0;
while a > 0 do
begin
b:= a mod 10;
a:= a div 10;
if b > 5 then s:=s+b;
end;
writeln('Ответ: ', s);
End.
Думаю что пойдёт) Удачи)
Вот ещё если что
var x,s:integer;
begin
read(x);
x:=abs(x);
s:=0;
while x>0 do begin
if x mod 10>5 then s:=s+x mod 10;
x:=x div 10
end;
write(s)
end.