Составить блок схему алгоритма для решения следующей задачи. Дана сумма начисленной заработной платы, вычислить подоходный налог 12%,1% на профсоюзный налог 1%, на пенсионный налог.

procedure FormMas(a: array[,] of integer; var v: array of int64);

var

 m, n, i, j, k: integer;

begin

 m := length(a, 0);

 n := length(a, 1);

 setlength(v, n);

 for j := 0 to n - 1 do

 begin

   v[j] := 1;

   k := 0;

   for i := 0 to m - 1 do

     if a[i, j] < 0 then

     begin

       k := k + 1;

       v[j] := v[j] * a[i, j]

     end;

   if k = 0 then

     v[j] := 0;

 end;

end;

function KolNul(a: array[,] of integer): integer;

var

 m, n, i, j, k, p: integer;

begin

 k := 0;

 m := length(a, 0);

 n := length(a, 1);

 for j := 0 to n - 1 do

 begin

   p := 0;

   for i := 0 to m - 1 do

     if a[i, j] < 0 then

       p := p + 1;

   if p = 0 then

     k := k + 1;

 end;

 KolNul := k;

end;

var

 m, n, i, j, k: integer;

 a: array[,] of integer;

 b: array of int64;

begin

 read(m, n);

 setlength(a, m, n);

 for i := 0 to m - 1 do

   for j := 0 to n - 1 do

     read(a[i, j]);

 FormMas(a, b);

 for j := 0 to n - 1 do

   write(b[j], ' ');

 writeln;

 k := KolNul(a);

 write(k);

end.

1)
day integer  (PK)
month varchar(10) (PK)
temperature integer 
falls varchar(50)
wind varchar(50)

3) дату всетаки лучше задавать датой, а не число отдельно, месяц отдельно, условий на них писать море
год не указан, так что в следующем году ждут проблемы
не наложены ограничения на поля Осадки и Ветер, потому в них может быть написано что угодно, лучше все возможные варианты закинуть в отдельные таблицы

2)
не одна таблица а система таблиц конечно же
Автор
id integer (PK)
name vaechar(50)

Издательство
id integer (PK)
name vaechar(50)

Книга
id integer (PK)
name vaechar(50)
language varchar(50)
id_publisher integer (FK)

Произведение
id integer (PK)
name vaechar(50)
original_name varchar(50)
id_auther integer (FK)

Произведения в книге
id integer (PK)
id_book integer (FK)
id_proizvedenie integer (FK)