Здравствуйте, Пухов Никита Евгеньевич!
Функция и программа использующая её в приложении.
Удачи!!!

Приложение:
{Функция, принимает строку содержащую число, возвращает true, если число делится на 5, иначе возвращает false}function Five(n: string): boolean;begin {Если полследняя цифра равна 5 или 0, то возвращаем true, иначе false} if (n[length(n)]=‘5‘) or (n[length(n)]=‘0‘) then Five:=true else Five:=false;end;var str: string;begin Write(‘Введите число: ‘); ReadLn(str); if Five(str) then Write(‘Число ‘, str, ‘ делится на 5‘) else Write(‘Число ‘, str, ‘ не делится на 5‘); readln;end.

Здравствуйте, Пухов Никита Евгеньевич!
Вот более простой способ.
Предполагаем, что число при делении на 5 даст в остатке нуль. А программа определит правильность нашего предположения и передаст функции результат логического типа (boolean)
Функция вернёт TRUE, если число делится на 5 и FALSE в противном случае.
Код в приложении.

Приложение:
function ok(var ch: integer): boolean;begin ok:= (ch mod 5) = 0; end;{Пример использования}var a: integer;begin readln(a); writeln(ok(a)); readln;end.