Помоги с программированием.Мне надо чтобы эта программа выполнялась в текстовом...

Question

Помоги с программированием.Мне надо чтобы эта программа выполнялась в текстовом документе.А конкретнее её ответ.
var
i:integer;
function kalle(c:integer):integer;
begin
kalle:=c*24;
end;
begin
for i:=2 to 365 do
writeln('В ',i,' днях ',kalle(i),' часов ');
end.
Надо чтобы writeln('В ',i,' днях ',kalle(i),' часов '); писалось в блокноте

Answer 1

Вам необходимо в теле программы добавить инициализацию файла для вывода
Assign(output, '<путь к файлу>') rewrite(output);