Помогите пожалуйста решить задачу!!!

[orline]

№1: Написать программу, которая проверяет, делится ли на три и на пять целое число введенное с клавиатуры.
пример.
(((введите целое число=>51=>число 51 на три и на пят не делится)))

№2: Даны три вещественных числа a,b,c. Написать программу нахождения куба суммы максимального и минимального значений этих чисел.

[v_b]

var
a:integer;
begin
writeln ('vvedi chislo');
readln(a);
if a mod 5 =0 then writeln ('na 5 delitsia')
else writeln ('na 5 ne delitsia');
if a mod 3 =0 then writeln ('na 3 delitsia')
else writeln ('na 3 ne delitsia');
readln;
end.

да поможет тебе кэп во втором задании )