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

Задача: В проводнике сопротивлением 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 кДж