program CMPR { www.merlyn.demon.co.uk >= 2004-08-24 } ; var P1, P2 : extended ; N : integer ; const Ch : char = '=' ; BEGIN if ParamCount<>2 then begin Writeln('CMPR P1 P2 ; result is line containing < = or > on std out.') ; HALT(3) end ; Val(ParamStr(1), P1, N) ; if N<>0 then begin Writeln('CMPR : P1 not a number.') ; HALT(1) end ; Val(ParamStr(2), P2, N) ; if N<>0 then begin Writeln('CMPR : P2 not a number.') ; HALT(2) end ; if P1P2 then Ch := '>' ; Writeln(Ch) ; END.