Дано число а. Выяснить является ли оно не кратным 3 или 4. Если - да, то переменной y присвоить значение 1, иначе - 0.

var a,y:integer;beginreadln(a);if (a mod 3=0) or (a mod 4=0) then y:=1 else y:=0;writeln(y);readln;end.

Некратно - переменная равна 1, кратно - 0.program qq;uses crt;var a, p: integer;beginp:=1; //Присвоим переменной значение единицы (Положим, число некратно трем и четыремwriteln('Введите число а');readln (a);if a mod 3 = 0 then //Остаток от деления числа на 3   if a mod 4 = 0 then //Остаток от деления числа на 4                                   p:=0; // Если оба условия выполнены, то число кратно, переменная равна 0writeln (p);end.Так же тело программы можно представить следующим образом (учитываем, что если число кратно 3 и 4, то оно кратно 12)p:=1;writeln('Введите число');readln (a);if a mod 12 = 0 then  p:=1;writeln (p);