Дан массив фамилий студентов 1-го курса и массив их результатов в беге на 100 метров.

Const   n=6;   a:array[1..n] of string=     ('Иванов','Петров','Сидоров','Козлов','Баранкин','Пупкин');   b:array[1..n] of real=(15,13.9,16.1,14.2,14.5,15.3);   // массивы используются чтобы избежать в примере ручного ввода var   i,j,k:integer;   t:real;   s:string;   sa:array[1..n] of string;   sb:array[1..n] of real; begin   for i:=1 to n do begin sa[i]:=a[i]; sb[i]:=b[i] end;   // сортировка по возрастанию времени   for i:=1 to n-1 do     for j:=1 to n-1 do       if sb[j]>sb[j+1] then begin         s:=sa[j]; sa[j]:=sa[j+1]; sa[j+1]:=s;         t:=sb[j]; sb[j]:=sb[j+1]; sb[j+1]:=t         end;   // вывод   for i:=1 to 4 do Writeln(sa[i],' - ',sb[i]) end. Пример Петров - 13.9 Козлов - 14.2 Баранкин - 14.5 Иванов - 15