Изменяется ли внутренняя энергия при деформации тела? при нагревании тела на пламени спиртовки? при подъёме тела над поверхностью Земли?

Внутренняя энергия тела Е состоит из кинетической энергии движения молекул Ек и потенциальной энергии Еп взаимодействия молекул: Е = Ек + Еп.
При деформации тела внешними силами, температура тела увеличивается, значит увеличивается и внутренняя энергия.
При  нагревании  количество теплоты, которое выделяется  при  сгорании спиртовки, переходит во внутреннюю энергию тела. Тело нагревается, значит увеличивается и внутренняя энергия тела.
Внутренняя энергия тела зависит от температуры тела, агрегатного состояния и других факторов, и не зависит от положения тела в пространстве и его механического движения. При подъёме тела над поверхностью земли его внутренняя энергия не изменяется.

Program kvuravn;
Uses crt;
Var a, b, c, d, x1, x2: real;
Begin
        Writeln(‘Введите коэффициенты квадратного уравнения’);
        Read (a, b, c);
        d:=sqr(b) – 4*a*c;
        if d > 0 then begin
                                  x1:=(-b+sqrt(d))/(2*a);
                                  x2:=(-b-sqrt(d))/(2*a);
                                  writeln (‘2 корня’, x1, x2);
                             end
                     else if d = 0 then begin
                                                    x1:=-b/(2*a);
                                                    writeln (‘корень один’, x1);
                                                 end
                                         else write (‘ корней нет’);
readkey;
end.

Program Praktik7;
Uses crt;
Var matrica: array[1..5,1..10] of integer;
Var i,j,nmax,k,kmax:integer;
Begin
  For i:=1 to 5 do
   for j:=1 to 10 do
      matrica[i,j]:=random(2);
  nmax:=1;kmax:=0;
  For J:=1 to 10 do
     if matrica[1,j]=0 then kmax:=kmax+1;
  For i:=2 to 5 do
    begin
      k:=0;
      for j:=1 to 10 do
      if matrica[i,j]=0 then k:=k+1;    
      if k>kmax then
          begin
             kmax:=k;
             nmax:=i;
          end;
    end;
  For i:=1 to 5 do
     Begin
        for j:=1 to 10 do
        Write (matrica[i,j]:4);
        Writeln;
     End;
  Writeln (‘Номер строки ',nmax);
  Write(‘Количество нулей ',kmax);
  Readkey
End.