Составьте программу для вычисления количества теплоты по формуле q=cm(t2-t1)по паскалю!

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);
end.