Решите в Паскале. 1.     Определить количества
теплоты, выделяющейся в замкнутой цепи, по закону Джоуля-Ленца: Q:=I2*R*t, где I=10А, R=100 Ом,
а t изменяется от 1 до 10.

http://znanija.com/task/8068569 помоги пожалуйста

const   I = 10;  R = 100;var t: integer;begin  for t := 1 to 10 do    writeln('t = ', t:2, ' Q = ', I*I*R*t, ' Дж');end.

готово...............