ДАЮ 34 БАЛЛА!!!!

Помогите решить задания по информатике (задание нужно решать через паскаль+ блок схема)

Составить в тетради блок-схемы и программы для следующих алгоритмов:
А) определения делимости числа на 7;
Б) определения делимости числа на 3 и 6;
В) определения делимости числа на 3 и 5;

A )var n : integer;beginreadln (n);if n mod 7 = 0 then write ('Кратно семи')else write ('Не кратно семи');end. Б)var n : integer;beginreadln (n);if (n mod 6 = 0) and (n mod 3 = 0) then write ('Кратно шести и трём')else write ('Не кратно шести и трём');end. В)var n : integer;beginreadln (n);if (n mod 5 = 0) and (n mod 3 = 0) then write ('Кратно пяти и трём')else write ('Не кратно пяти и трём');end.