clrscr;
write('Zadaj kolko prvkov chces zadat: ');
readlnn(size);
for x := 1 to size do
begin
write('Zadaj prvok[',x,']: ');
readln(pole[x]);
end;
najvacsie := pole[1];
for x := 2 to size do
if(najvacsie < pole[x]) then
najvacsie := pole[x];
writeln('Najvacsi prvok pola je ',najvacsie:5:2);
readln;