Var x, y:real;
begin
write('Введите x= '); readln(x);
write('Введите y= '); readln(y);
if x=y then
writeln ('Числа равны')
else
if x>y then
begin
writeln('Большее число x= ',x);
writeln('Меньшее число y= ',y);
end
else
begin
writeln('Большее число y= ',y);
writeln('Меньшее число x= ',x);
end;
end.