Question

Помогите пожалуйста, решите задачу через Pascal ABC.

Вычислить количество теплоты, выделяемой за время t в проводнике с сопротивлением R, через который проходит ток силой I, по формуле Q=I^2*R*t

Answer 1

Program n1;
var i,q,r,t: real;
begin
readln(i,t,r);
q:=i*i*r*t;
writeln(q);
end.