Функция: является ли введенное число кратным 3 и 5? - Turbo Pascal

Формулировка задачи:

Нада помощь в розвязані . Есть ли введено число кратным и 3 и 5?Буду очень благодарен.

Решение задачи: «Функция: является ли введенное число кратным 3 и 5?»

Листинг программы

uses crt;
function f(x:real):real;
var a:real;
begin
a:=3*cos(x)/sin(x);
f:=cos(a)/sin(a);
end;
function sum(a,b,c,d:real):real;
begin
sum:=a+b+c+d;
end;
function is_krat(a:integer):string;
begin
if a mod 15=0 then is_krat:='Число кратно 3 и 5'
else is_krat:='Число не кратно 3 или 5';
end;
function y(v:integer;x:real):real;
begin
y:=(f(v*x)+f(2*v*x))/(f(3*v*x)-f(4*v*x));
end;
var a,b,c,d,n,v:integer;
    x:real;
begin
clrscr;
writeln('Введите 4 числа');
readln(a,b,c,d);
writeln('Сумма=',sum(a,b,c,d):0:2);
write('Введите целое число для проверки кратности 3 и 5 n=');
readln(n);
writeln(is_krat(n));
write('Введите х=');
readln(x);
write('Введите номер варианта v=');
readln(v);
writeln('y=',y(v,x):0:2);
readln
end.

Объяснение кода листинга программы

Объединение всех функций в один код на языке Turbo Pascal.
Функция f принимает действительное число x и возвращает выражение 3*cos(x)/sin(x).
Функция sum принимает четыре действительных числа a, b, c, d и возвращает их сумму.
Функция is_krat принимает целое число a и возвращает строку Число кратно 3 и 5 или Число не кратно 3 или 5, в зависимости от того, делится ли a на 15 без остатка.
Функция y принимает целое число v и действительное число x и возвращает значение выражения (f(v*x)+f(2*v*x))/(f(3*v*x)-f(4*v*x)).
В основной программе объявлены следующие переменные:
- a, b, c, d - для ввода суммы четырех чисел;
- n - для ввода целого числа для проверки кратности 3 и 5;
- x - для ввода значения переменной x;
- v - для ввода номера варианта.
После ввода суммы четырех чисел и проверки кратности введенного числа выводится приглашение для ввода значения x и номера варианта v.
Значение функции y выводится с точностью до двух знаков после запятой.