Ответ:

program Pascal;

const n=10;

Var i,max,max2,max3: Integer;

m: array[1..10] of integer;

Begin

m[1]:=random(10);

max:=m[1];

max2:=m[1];

max3:=m[1];

For i:=2 to n do  

begin

m[i]:=random(100);

write(m[i]:4);

end;

For i:=1 to n do  

begin

if (m[i]>max) then  

begin

max3:=max2;

max2:=max;

max:=m[i];

end

else if (m[i]>max2) then  

begin

max3:=max2;

max2:=m[i];

end

else if (m[i]>max3) then  

begin

max3:=m[i];

end;

end;

writeln();

writeln(max3);

End.