Напишите программу на паскале

Программа на Паскале с выводом формулы Джоуля-Ленца
program Закон_Джоуля_Ленца;

var
R: real; { Сопротивление проводника }
I: real; { Сила тока }
Q: real; { Количество теплоты }

begin
Write('Введите сопротивление проводника (Ом): ');
Readln(R);

Write('Введите силу тока (А): ');
Readln(I);

Q := R * I * I * 0.5;

Writeln('Количество теплоты: ', Q, ' Дж');
end.

Объяснение:
* В программе объявляются переменные R (сопротивление проводника), I (сила тока) и Q (количество теплоты).
* Пользователь вводит значения сопротивления и силы тока.
* Количество теплоты вычисляется по формуле Джоуля-Ленца: Q = R * I^2 * 0.5.
* Результат выводится на экран.
Пример:
Введите сопротивление проводника (Ом): 10
Введите силу тока (А): 2

Количество теплоты: 20 Дж

Запуск программы:
* Сохраните код в файле с расширением .pas.
* Откройте файл в среде разработки Pascal и запустите программу.
Примечания:
* Эта программа является простой демонстрацией и не учитывает все факторы, влияющие на количество теплоты, выделяемое в проводнике.
* Для более точного расчета необходимо использовать более сложные модели.

 Источник: Gemini Advanced  

const
N = 7;
var
arr1,arr2: array[1..N] of integer;
arr3: array[1..N+N] of integer;
i,j,k,m: byte;
begin
writeln('Заполните первый массив:');
for i := 1 to N do
read(arr1[i]);

writeln('Заполните второй массив:');
for i := 1 to N do
read(arr2[i]);

i := 1; j := 1; k := 1;
while (i <= N) and (j <= N) do begin
if arr1[i] < arr2[j] then begin
arr3[k] := arr1[i];
i := i + 1
end
else begin
arr3[k] := arr2[j];
j := j + 1
end;
k := k + 1;
end;

while i <= N do begin
arr3[k] := arr1[i];
i := i + 1;
k := k + 1
end;

while j <= N do begin
arr3[k] := arr1[j];
j := i + 1;
k := k + 1
end;

writeln;
for i := 1 to N+N do
write(arr3[i]:4);

end.