РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ!!! Отыскать СУММУ ЦИФР ЦЕЛОГО ЧИСЛА Великих 5!!

Program aa;
Uses crt;
Var
a,b: integer;
s: real;
Begin
readln(a);
s:=0;
while a gt; 0 do
begin
b:= a mod 10;
a:= a div 10;
if b gt; 5 then s:=s+b;
end;
writeln('Ответ: ', s);
End.


Думаю что пойдёт) Фортуны)
Вот ещё если что


var x,s:integer;
begin
read(x);
x:=абс(x);
s:=0;
while xgt;0 do begin
if x mod 10gt;5 then s:=s+x mod 10;
x:=x div 10
end;
write(s)
end.