begin
write('Introduce-ti un numar intreg n (n>0): ');
var n := ReadInteger;
assert(n>0);
write('Introduce-ti prima cifra: ');
var x :=ReadReal;
var max := x;
for var i := 2 to n do
begin
write('Introduce-ti ',i,',cifra: ');
x := ReadReal;
if max < x then
max := x;
end;
writeln('Maximum din cifrele introduse: ', max);
end.
