Написать программу на языке pascal, которая выводит наибольшее из 2-х введённых чисел.

Program n1;
var a,b: real;
begin
readln(a,b);
if a>b then writeln(a);
if a<b then writeln(b);
end.