uses crt;
var a,b:integer;
c,z:boolean;
begin
clrscr;
writeln('Введите a,b:');
readln(a,b);
z:=(a>3)or(b<9)and(c=false);
write(z);
readln
end.
uses crt;
var a,b:integer;
c,z:boolean;
begin
clrscr;
writeln('Введите a,b:');
readln(a,b);
z:=(a>3)or(b<9)and(c=false);
write(z);
readln
end.