Дано число. Делится ли это число на 5 без остатка? Надо на языке Паскаля

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 без остатка