Срочно!!! найти сумму двух первых цифр заданного четырёхзначного числа если оно кратно 5

Program krat5;
var
n: integer;
begin
write(число: );
readln(n);
if n mod 5 = 0 then
writeln( (n div 1000) + (n mod 1000 div 100) )
else
writeln(не кратно 5);
end.