program prim;

var a,b:real;

begin

writeln('Введите 2 числа: ');

read(a,b);

if a>b then writeln('Большее число = ', a)

else writeln('Большее число = ', b);

end.

( На самом деле это очень легко) )