База данных.
ответи на несколько во по этой базе даной
1.Определите какого типа будет каждое поле
Запишите какую строку будет занимать запись про машинку на ПУ ПУ после сортировки БД по ключу «Дата поступления (возр.)+ Наименование (убыв)».
2. Запишите условие отбора для вывода на экран всех игрушек, поступивших в магазин в апреле и мае 2019 году.

3. Запишите условие отбора для вывода на экран всех игрушек для мальчиков, количество на складе которых больше 10.

4. Запишите условие отбора для вывода на экран всех игрушек, для которых ожидается поступление на склад.

5. Определите, сколько записей останется в таблице после выполне-ния за на удаление из БД записей об игрушках, которых на складе осталось меньше 5.

6. Запишите условие отбора для вывода на экран всех игрушек для девочек(д) или мальчиков и девочек одновременно (мд).

7. Запишите вычисляемое поле, в котором будет содержаться ин-формация об ожидаемой прибыли магазину после продажи каждой игрушки. Для этого надо общее количество игрушек одного вида умножить на их цену.

1)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i+j>5) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

2)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i>J) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

var  mas1, mas2: array[0..9] of integer;  t, k, i, j: integer; 
begin  
readln(t);  
readln(k);  
for j := 0 to 1 do  begin   
      if (j = 1) then writeln();        
                 for i := 0 to 9 do    begin      
                          if(j = 0) then begin       
                                  mas1[i] := random(100);        
                                    write(mas1[i], ' ');       
                                    if mas1[i] > t Then mas1[i] := mas1[i] + 4;      
                              end      
                            else 
                               begin       
                                      mas2[i] := random(100);        
                                      write(mas2[i], ' ');       
                                       if mas2[i] > 10 * K Then         
                                            mas2[i] := mas2[i] + K;      
                                end;    
                       end;       
                  for i := 0 to 9 do     
                         if (j = 0) then 
                               write(mas1[i]) 
                        else 
                                write(mas2[i]);    
               writeln();  
           end;  
readln();
end.

))