Текст задания

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

Исходный код программы

var
C,m,t1,t2,q:real;
begin
Write('C='); {Запрашиваем теплоемкость}
Readln(c);
Write('m=');  {Запрашиваем массу}
Readln(m);
Write('t1=');  {Запрашиваем начальную температуру}
Readln(t1);
Write('t2=');  {Запрашиваем конечную температуру}
Readln(t2);
Q:=C*m*(t2-t1);  {Считаем количество теплоты}
Writeln('Q=',Q:4:2); {выводим ответ}
readln;
end.

Результат работы программы