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

Var a, y:integer;

begin

readln (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;

begin

p:=1; / / Присвоим переменной значение единицы (Положим, число некратно трем и четырем

writeln ('Введите число а') ;

readln (a) ;

if a mod 3 = 0 then / / Остаток от деления числа на 3

if a mod 4 = 0 then / / Остаток от деления числа на 4

p:=0; / / Если оба условия выполнены, то число кратно, переменная равна 0

writeln (p) ;

end.

Так же тело программы можно представить следующим образом (учитываем, что если число кратно 3 и 4, то оно кратно 12)

p:=1;

writeln ('Введите число') ;

readln (a) ;

if a mod 12 = 0 then p:=1;

writeln (p) ;