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

64*48*12*8=294,912- обьем в байтах 1 стр

 

число-общее

столица росси - единичное

учебник - общее

житель москвы - общее

столица - общее

самая высокая гора - единичное

пушкин - единичное

сказочный персонаж - общее

баба яга- единичное