8. определите исходные инструменты и модификаторы, использованные для получения результата. ​

Program asd; uses crt; var n,m,min: integer;   r: real; begin  write('введите число    n: ');   readln(n);   write('введите число  m: ');   readln(m);   if n> m then min: =m  else min: =n;       if (n> 100) and (m> 100) then  begin      n: =min;     m: =min;       writeln('n= ',n,' m= ',m);   end;     if (n> 0) and (m< 0) then    writeln('n= ',n/2,' m= ',m/2)      else      r: =(n+m)/2;       writeln('среднее арифм. :     ',r);     end.

Var     i: integer;     t: array[1..3,0..31]of real; begin write('введите температуру в декабре по дням: '); for i: =1 to 31 do   begin   readln(t[1,i]);   t[1,0]: =t[1,0]+t[1,i];   end; t[1,0]: =t[1,0]/31; write('введите температуру в январе по дням: '); for i: =1 to 31 do   begin   readln(t[2,i]);   t[2,0]: =t[2,0]+t[2,i];   end; t[2,0]: =t[2,0]/31; write('введите температуру в феврале по дням: '); for i: =1 to 28 do   begin   readln(t[3,i]);   t[3,0]: =t[3,0]+t[3,i];   end; t[3,0]: =t[3,0]/28; writeln('средняя температура в декабре: ',t[1,0]); writeln('средняя температура в январе: ',t[2,0]); writeln('средняя температура в феврале: ',t[3,0]); writeln('средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3); end.