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.
var
a: array[1..20] of integer;
n,i:integer;
begin
for i:=1 to 20 do
readln(a[i]);
n:=a[1];
for i:=2 to 20 do begin
if a[i]>n then
n:=a[i];
end;
writeln('naibolshee= ', n);
end.