Помогите пожалуйста, решите задачу через Pascal ABC. Вычислить количество теплоты, выделяемой за время t в проводнике с сопротивлением R, через который проходит ток силой I, по формуле Q=I^2*R*t
Program n1; var i,q,r,t: real; begin readln(i,t,r); q:=i*i*r*t; writeln(q); end.