Составьте программу для вычисления количества теплоты по формуле 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.

линейный (следования)

разветвляющийся (развилка)

циклический