составить программу на паскаль: Имеются сведения о 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.