program z1;
var a:integer;
begin
write ('a = ');
readln (a);
if a mod 5 = 0 then write ('Число ',a,' делится на 5 без остатка')
else write ('Число ',a,' не делится на 5 без остатка')
end.
Объяснение:
a mod 5 = 0
mod - остаток от целочисленного деления
Если число а при делении на 5 даёт в остатке 0, то оно делится на 5 без остатка, иначе число не делится на 5 без остатка
