Question

даны два действительных числа х и у.Найти большее из этих чисел или установить, что числа равны

Answer 1

program ex1;

var x,y:real;

begin

readln(x,y);

if x>y then writeln('x>y and x=',x);

if x<y then writeln('y>x and y=',y) 

else writeln('x=y=',x);

end.