Program hren; uses crt; var x,y:integer; BEGIN writeln('enter your numbers'); readln(x,y); if x>y then begin writeln('the first number is greater'); end else begin writeln('the second number is greater'); end; END.