vara: array[1..20] of integer;n,i:integer;begin
for i:=1 to 20 doreadln(a[i]);
n:=a[1];for i:=2 to 20 do beginif a[i]>n thenn:=a[i];end;writeln('naibolshee= ', n);end.
