1.создать массив записей следующего типа: страна территория в км2 население млн.человек столица латвия 67,7 2,6 рига литва 65,2 3,4 вильнюс польша 313 34,8 варшава украина 603,7 50 киев россия 17075,4 139 москва найти и вывести страну с наибольшей плотностью населения. сделайте (abc паскаль)

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.

for i in range(1,6,1):

   k = str(i) * i

   print(k)

Ко второму заданию честно не знаю как сделать, потому что чтобы сформировать ровную пирамиду нужны нечетные кол-ва звездочек.

В условии есть 4 звездочки, они никак не могут создать такую пирамиду.

Будет что то типа такого:  

    *

  * * *

* * * *                

* * * * *