Помогите решить физическую задачу на паскале

 program EntropyChange; 
uses crt; 
var 
  m, t1, t2: real; 
  s1, s2, ds: real; 
begin 
  writeln('Введите массу воды (m), начальную температуру (t1) и конечную температуру (t2):'); 
  readln(m, t1, t2); 
  t1 := t1 * 10;