В ЭВМ вводятся результаты соревнований по прыжкам в вышину. Число участников

program raf105;

var  

 i,n,maxn: integer;

 a,max: real;

begin

max:= -10000;

n:= random(3,10);

writeln('Введите результаты ',n,' участников по очереди');

for i:=1 to n do

begin

 write(i,'. ');

 readln(a);

 if a gt; max

   then begin

     max:= a;

     maxn:= i;

   end;

end;

writeln('Победил соучастник ',maxn,' с результатом ',max);

end.

PascalABC 3.4.2