program AAA;
var A, B ,X :real;
begin
readln(A,B,X);
if X > A then
if X< B then
writeln('Прин')
else
writeln('Не прин')
end.
program AAA;
var A, B ,X :real;
begin
readln(A,B,X);
if X > A then
if X< B then
writeln('Прин')
else
writeln('Не прин')
else
writeln('Не прин')
end.