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.