Program P48;
 { Determinarea maximului a douň numere }
var x, y, max : real;
begin
 writeln('Daţi două numere:');
 write('x='); readln(x);
 write('y='); readln(y);
 if x>=y then max:=x else max:=y;
 writeln('max=', max);
 readln;
end.