program z1;
var a,b,c:integer;
o:boolean;
begin
write ('a = ');
readln (a);
write ('b = ');
readln (b);
write ('c = ');
readln (c);
o:=(a>9) and (a<100) and (b>9) and (b<100) and (c>9) and (c<100);
writeln (o)
end.
program z1;
var a,b,c:integer;
o:boolean;
begin
write ('a = ');
readln (a);
write ('b = ');
readln (b);
write ('c = ');
readln (c);
o:=(a>9) and (a<100) and (b>9) and (b<100) and (c>9) and (c<100);
writeln (o)
end.