Информатика

Лизаветка

29 марта, 13:25

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

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),' часов ') ; писалось в блокноте