Если я правильно посчитал, в предложении 44 символа, unicode имеет вес символа 2 байта, общий объем строки - 44*2=88 байт
"L1" - Название файла
".TXT" - расширение файла (создан в блокноте, текстовый формат)
"1 КБ" - объем файла
"<span>02.03.2007.18:00</span>" - Дата создания документа.
С текстовым и графически.
program
week;
var k,n:
integer;
begin
<span> writeln ('Input k (1<=k<=365) : ');</span>
<span> readln (k); </span>
<span> if (k mod 7=0) then n:=0</span>
<span> else n:=k mod 7;</span>
<span> writeln ('n= ',n);</span>
<span>end.</span>