var a,b:real;
begin
writeln('Enter a, b:');
readln(a,b);
if (10*a*a-7*a+2=b) then
writeln('Prohodit')
else
writeln('Ne prohodit')
end.
var a,b:real;
begin
writeln('Enter a, b:');
readln(a,b);
if (10*a*a-7*a+2=b) then
writeln('Prohodit')
else
writeln('Ne prohodit')
end.