Program Max;

Uses Crt;

var a,b,max:real;

begin

      clrscr;

      write('Введите число а:');

      readln(a);       

      write('Введите число b:');

      readln(b); 

 if (a=b) then writeln('Числа одинаковы')

            else begin 

                              max:=a;  

                             if (b>a) then max:=b; 

                              writeln('Наибольшее число:',max);

                      end;        

      readkey; 

end.