program z790;
uses crt;
const n=7;
var a:array[1..n] of integer;
m,i:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do begin
a[i]:=random(10)-2;
write(a[i]:5);
end;
writeln;
m:=0;
for i:=1 to n do begin
if a[i]>0 then m:=a[i];
end;
a[i]:=a[2];
writeln(m:5);
readln;
end.