Рассчитать информационный объем на берегу пустынных волн стоял он, дум великих полн, и вдаль глядел. пред ним широко река неслася; бедный чёлн по ней стремился одиноко. по мшистым, топким берегам чернели избы здесь и там, приют убогого чухонца; и лес, неведомый лучам в тумане спрятанного солнца, кругом шумел. и думал он: отсель грозить мы будем шведу, здесь будет город заложен на зло надменному соседу. природой здесь нам суждено в европу прорубить окно,1 ногою твердой стать при море. сюда по новым им волнам все флаги в гости будут к нам, и запируем на просторе сто лет, и юный град, полнощных стран краса и диво, из тьмы лесов, из топи блат вознесся пышно, горделиво;

{PascalABC}

Program Puzzle;

var  

 R,day:integer;  

 week:array[1..7] of string;

 i:integer;

 s:string;

begin

 week[7]:='Воскресенье';

 week[6]:='Суббота';

 week[5]:='Пятница';

 week[4]:='Четверг';

 week[3]:='Среда';

 week[2]:='Вторник';

 week[1]:='Понедельник';

 s:=' -=Alphaeus=- ';

 for i:=1 to 22 do begin write(s[i]); sleep(200) end;

 writeln; writeln('ОК, Задумайте день недели (номер от 1 до 7)');

 writeln('Удвойте этот номер');

 writeln('Увеличьте результат на 5');

 writeln('Умножьте полученное число на 5');

 writeln('Теперь то, что получилось, умножьте на 10');

 writeln('Введите полученный результат'); readln(R);

 day:= round((R-250)/100);

 writeln('');

 case day of

   1..7: writeln('      Вы задумали ',week[day]);

   else writeln('Что-то пошло не так... Либо вы задумали не число между 1 и 7, либо ошиблись в рассчётах')

 end;

 writeln('');

end.

Использовать источники открытого огня (спички, зажигаприносить на уроки легковоспламеняющиеся вещества (лаки, краски, порох и т.п.); лки, петарды и др.); работать с электроприборами, имеющими повреждения корпуса или изоляции соединительных проводов; вставлять в отверстие приборов посторонние предметы; приносить и самовольно подключать какое-либо оборудование; производить самовольное переключение разъёмов оборудования; вставлять в отверстие приборов посторонние предметы; работать с электроприборами, имеющими повреждения корпуса или изоляции соединительных проводов;