var a, b: real; begin Writeln('Введите первое число'); readln(a); Writeln('Введите второе число'); readln(b); if a > b then Writeln('Наибольшое число = ', a) else writeln('Наибольшое число = ', b); readln; end.