uses crt-

vari,max,size:integer-

— — — winer:string-

nam:array[1..10] ofstring-

bal:array[1..10] ofinteger-

begin

clrscr-

writeln(‘Введите кол-во участников соревнования’)-

readln(size)-

FOR i := 1 TO sizedo

begin

clrscr-

writeln(‘Фамилия участника’)-

readln(nam[i])-

writeln(‘Его балл’)-

readln(bal[i])-

end-

max := bal[1]-

writeln(‘Участники’)-

FOR i := 1 TO sizedo

begin

writeln(nam[i],’ Балл ‘,bal[i])-

end-

FOR i := 1 TO sizedo

begin

IF bal[i] &gt- maxTHEN

-begin

-max := bal[i]- winer:= nam[i]-

-end-

-end-

writeln(winer, ‘ победитель. Баллов’, max)-

end.