program nummax;
var n, i: integer;
num, maximal:real;
begin
write('n= '); read(n);
writeln(' introdu ', n,' numere reale: ');
read(num);
maximal:=num;
for i:=2 to n do
begin
read(num);
if (num>maximal) then maximal:=num;
end;
writeln(' cel mai mare este ', maximal);
end.