Заполнить таблицу Выполняемое действие -> Применяемая команда

самым главным считается объем

4k+2m+1=41

k+m+1=15

4k+2m=40

k+m=14

2k+m=20

-k-m=-14

k=6

program a1;

  uses crt;

  var a: array[1..31] of longint; k,i: integer;

begin

  clrscr;

  for i: =1 to 31 do begin

  write('введите температуру ',i,' числа: ');

  readln(a[i]);  

  if a[i]< 0 then k: =k+1;

  end;

writeln('  количество дней в которые были заморозки = ', k);

readln

end. 

p.s. если паскаль abc, то выделенное писать не обязательно 

до перелива 8     0     0

1)                 3     5     0

2)                 3     2       3

3)                 6     2       0

4)                 6     0       2

5)                 1     5     2

6)                 1     4       3 

7)                   4     4       0