Дано число 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