Помогите составить программу для Паскаля ** сравнение двух чисел

Question

Помогите составить программу для Паскаля на сравнение двух чисел

Answer 1

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.

Answer 2

Var x, y: integer;
begin
     readln(x, y);
     if (x = y) then writeln('x = y');
     if (x < y) then writeln('x < y');
     if (x > y) then writeln('x > y');
end.