Как меняется со временем температура паяльника от момента включения (Pascal)

[Mike9362]

Помогите пожалуйста, нужно написать программу для решения задачи:

Как меняется со временем температура паяльника от момента включения, если мощность нагревателя равна 40 Вт; масса паяльника 100 г, удельная теплоемкость 400 Дж/(кг*К)?
Потери тепла происходят за счет теплопроводности среды и конвекции по закону: dQ1/dt — А (Т — Tср), где А=0,05 Вт/К, температура среды Тср=20 °С, а также за счет излучения в соответствии с законом Стефана — Больцмана по закону: dQ2/dt=S(T^4 — T^4ср), где S = 3,4-10^(-10) Вт/К4. Дайте ответ с учетом и без учета излучения.

В учебнике дан ответ: За первые 400 с паяльник нагревается до 500 К (~200°С), и далее практически его температура не меняется. Если бы не учитывались потери на излучение, его температура была бы значительно больше.

И написана программа на Бейсике:

10 PRINT "ПАЯЛЬНИК" 
 20 SCREEN 2 
 30 P=40 
 40 M=.1 
 50 C=4E2 
 60. A=.05 
 70 S=3.4E=10 
 80 ' S=0 
 90 T0=293 
 100 T8=10 
 110 T=T0 
 120 FOR T7=0 TO 1E3 STEP T8 
 130 Z=P-A*(T-T0)-S*(T*T*T*T-T0*T0*T0*T0) 
 140 T1=Z*T8/C/M 
 150 T=T+T1 
 160 ' PRINT T7,T 
 170 PSET (T7*.5,(T-T0)*.5) 
 180 NEXT T7 
 185 GOTO 185 
 190 END

Помогите пожалуйста, заранее спасибо.