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

Указывать заголовок программы (program krat5;) было обязательно только в версии, которую изначально описал Н.Вирт - в этом заголовке еще нужно было перечислять файлы, так что полностью его писали так: program krat5(input,output); - это было связано с реализацией паскаля для машин серии CDC 6000.

Но уже в ТурбоПаскаль заголовок программы стал необязательным и во всех паскалях рассматривается как разновидность комментария.

Тем не менее, многие школьные учителя продолжают пытаться требовать от учеников писать этот заголовок, придавая ему некий сакральный смысл, объяснить которого они не могут (когда программу пишут и запускают без этого заголовка, и "все работает")