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.