Дано число n определить заканчивается ли сумма цифр на 5

Var n, s:integer;

begin

readln (n) ;

s:=0;

n:=abs (n) ;

while n>0 do

begin

s:=s+n mod 10;

n:=n div 10;

end;

writeln ('s = ', s) ;

if s mod 10=5 then writeln ('Сумма цифр оканчивается на 5')

else writeln ('Сумма цифр не оканчивается на 5') ;

end.

Пример:

1752

s = 15

Сумма цифр оканчивается на 5