var
F, x, y: real;
begin
readln(x, y);
if (x >= 0) and (y > 0) then
F := sqrt(x / y) * (5 * y * y - x)
else
F := (3.3 * x - y) / (7 * x * y);
writeln('F=', F);
end.
Function IsPrime(x: integer): boolean;
var s, n: integer;
begin
Result := x > 1;
s := Trunc(Sqrt(x)) + 1;
n := 1;
while (n < s) and Result do begin
n := n + 1;
Result := Result and (x mod n > 0);
end;
end;
var x, s: integer;
begin
readln(x);
if IsPrime(x) then
writeln('prime')
else
writeln('composite');
<span>end.</span>