Имеются сведения о 40-и регионах страны: название региона и информация об уровне безработицы в регионе. Определите три

a:array[1..40] of string;b:array[1..40] of integer;{Число = информация по безработице }i, n, j, m:integer;beginfor i:=1 to 40 doreadln(a[i]);readln(b[i]);for i:=1 to 40 dofor j:=1 to 40 doif b[i]>b[j] then beginn:=a[i]; a[i]:=a[j]; a[j]:=n;m:=b[i]; b[i]:=b[j]; b[j]:=m; end;writeln(\'неблагополучные регионы:\');for i:=1 to 3 dowriteln(a[i],\' \',b[i]);writeln(\'благополучные регионы:\');for i:=40 downto 38 dowriteln(a[i],\' \',b[i]);readln;end.