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.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.