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

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

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

A )
var n : integer;
begin
readln (n);
if n mod 7 = 0 then write (Кратно семи)
else write (Не кратно семи);
end.

Б)
var n : integer;
begin
readln (n);
if (n mod 6 = 0) and (n mod 3 = 0) then write (Кратно шести и трём)
else write (Не кратно шести и трём);
end.

В)
var n : integer;
begin
readln (n);
if (n mod 5 = 0) and (n mod 3 = 0) then write (Кратно пяти и трём)
else write (Не кратно пяти и трём);
end.