Найти сумму двух первых цифр заданного четырёхзначного числа если оно кратно 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.