Напишите пожалуйста программу где после решения задачи допустим по физике он из дж сразу...

Задача: В проводнике сопротивлением 2 Ом сила тока 20 А. Какое количество теплоты выделится в проводнике за 1 мин?
Программа:
var i,r,t,q:real;
begin
r:=2;
i:=20;
t:=60;
q:=i*i*r*t;
writeln('Q = ',q,' Дж = ',q/1000,' кДж');
end.

Результат:
Q = 48000 Дж = 48 кДж