program individ;
const n=3;
type country=record
      name:string;
      plnas, pl, sh, nas, vuz:integer;
    end;
var x:array[1..n] of country;
    i,j,ch,im:integer;
    str:string;
begin
for i:=1 to n do
 with x[i] do
  begin
   Writeln(' Страна: ');
   Write('1-Украина, 2-Россия, 3-Беларусь: ');
   Readln(ch);
    if ch=1 then
     x[i].name:='Украина'
    else
     if ch=2 then
      x[i].name:='Россия'
     else
      if ch=3 then
       x[i].name:='Беларусь';
    Write(' Количество населения: ');
    Readln(nas);
    Write(' Площадь государства: ');
    Readln(pl);
    Write(' Количество школ: ');
    Readln(sh);
    Write(' Количество ВУЗов: ');
    Readln(vuz);
    plnas:=nas div pl;
   end;
Writeln('Таблица: ');
Writeln('_______________________________________________________________________');
Writeln('| Страна | Население | Площадь | Школы | ВУЗы || Плотность населения ||');
Writeln('-----------------------------------------------------------------------');
for i:=1 to n do
Writeln('|',x[i].name:8,'|',x[i].nas:11,'|',x[i].pl:9,'|',x[i].sh:7,'|',x[i].vuz:6,'||',x[i].plnas:11 ,'чел/км^2','||');
Writeln('-----------------------------------------------------------------------');
Writeln('Результат: ');
im:=-1;
for i:=1 to n do
 if x[i].plnas>im then
  begin
   im:=x[i].plnas;
   str:=x[i].name;
  end;
Writeln('Количество ВУЗов в стране с наибольшей плотностью населения: ',x[i].name,- x[i].vuz);
Readln
end.