Var
i:integer;
begin
readln(i);
if i<=7 then
case i of
1:writeln('Это понедельник');
2:writeln('Это вторник');
3:writeln('Это среда');
4:writeln('Это четверг');
5:writeln('Это пятница');
6:writeln('Это суббота');
7:writeln('Это воскресенье');
end
else
writeln('Число слишком большое');
<span>end.</span>
2*80*60*800=7680000
(2*80- сколько всего строк
2*80*60- сколько символов на одной странице
2*80*60=9600
Во всей книге: 9600*800=7680000
По горизонтали сверху вниз
по вертикали уже понятно)
как правило бесплатное програмное обеспеченье бывает либо урезанным либо с
пробным периудом использования