сделать блок-схему алгоритма Program Задание_2;
var
a, b: real;
c, s: real;

begin
a:=4;
b:=16;
c:=(40-(a+b))/2;
s:=c*Sqrt(a*b);
writeln ('Площадь является ',s);
end.

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.

1) 0,4 кг =400 гр -это 100% , 1%=400:100=4гр, следовательно 15% = 15*4=60 грамм,
60 гр составляют 1/5 часть конфет, значит 1 целая конфет = 60*5=300 гр. , тогда вес коробки= 400-300=100 гр.

2) аналогично:
50 кг - это 100%, тогда 1%=50:100=0,5 кг, отсюда 45%=0,5*45=22,5 кг и это половина всех конфет, значит все конфеты весили 22,5*2=45 кг, тогда ящик весит 50-45=5 кг

3) 60 кг = 100%, 24%=60:100*24=14,4 кг-это четверть конфет, значит все конфеты весили 14,4*4=57,6 кг, тогда ящик весит 60-57,6=2,4 кг