составить программу для вычисления теплоты

var c,m,t1,t2,q: integer;

 begin

 write('Введите c ');

 readln(c); 

 write('Введите m ');

 readln(m); 

 write('Введите t1 ');

 readln(t1);

 write('Введите t2 '); 

 readln(t2); 

 q:=c*m*(t2-t1); 

 writeln('количества теплоты ',q);

Я не знаю но может вот это поможет?