program E1;
var x,y,z :real;
begin
readln(x);
readln(y);
then z:=x<y
else z:=x>y
end.
Объяснение:
then это если (у) больше (х) а else это наоборот
