Дано одновимірний масив (кількість елементів масиву вводиться на формі). Вивести кількість непарних елементів масиву.

Маша---Оля---Катя
                        !
                     Вася---Вера
Маша дружит только с Олей
Оля дружит с Машей и Катей 
Катя дружит с Олей и Васей
Вася дружит с Катей и Верой
Вера дружит только с Васей
У Оли, Кати и Васи по два друга, а у Маши и Веры по одному другу

Таблица
ИМЕНА        ДРУЗЬЯ          КОЛ-ВО (друзей)
Оля          Маша и Катя                  2
Катя         Оля и Вася                    2
Вася         Катя и Вера                   2
Маша       Оля                               1
Вера         Вася                             1

Program qw;
uses crt;
Type
   Atlas=Record
       country,capital:string;
       area,people:real;
     end;
   ps=File of atlas;
Var f:ps;
    z,t:atlas;
Begin
  assign(f,'1.dat');
  rewrite(f);
    z.country:='Латвия'; z.area:=67.7;
    z.people:=2.6; z.capital:='Рига';
    write(f,z);
    z.country:='Литва'; z.area:=65.2;
    z.people:=3.4; z.capital:='Вильнюс';
    write(f,z);
    z.country:='Польша'; z.area:=313;
    z.people:=34.8; z.capital:='Варшава';
    write(f,z);
    z.country:='Украина'; z.area:=603.7;
    z.people:=50; z.capital:='Киев';
    write(f,z);
    z.country:='Россия'; z.area:=17075.4;
    z.people:=139; z.capital:='Москва';
    write(f,z);
  Close(f);
  assign(f,'1.dat');
  reset(f);
  read(f,t);
  while not(eof(f)) do
    begin
      read(f,z);  
      if t.people/t.area < z.people/z.area then t:=z;
    end;
  close(f);
  writeln('Cтранa с наибольшей плотностью населения:');
  writeln(t.country,' (плотность населения равна ',t.people/t.area:9:6,' млн на кв.км)');
end.