Книга содержит 270 страниц на каждой странице 45 строк в каждой строке 63 символа какой объем информации в книге байтах и килобайтах? ! ! !

Створюємо кнопку для кнопки (button1) процедура onclick створюємо поле вводу створюємо текстове поле procedure tform1.button1click(sender: tobject); var x: real; begin  x: = strtofloat(edit1.text); if edit1.text = '1'then label1.caption: = 'январь'; if edit1.text = '2'then label1.caption: = 'февраль'; if edit1.text = '3'then label1.caption: = 'март'; if edit1.text = '4'then label1.caption: = 'апрель'; if edit1.text = '5'then label1.caption: = 'май'; if edit1.text = '6'then label1.caption: = 'июнь'; if edit1.text = '7'then label1.caption: = 'июль'; if edit1.text = '8'then label1.caption: = 'август'; if edit1.text = '9'then label1.caption: = 'сентябрь'; if edit1.text = '10'then label1.caption: = 'октябрь'; if edit1.text = '11'then label1.caption: = 'ноябрь'; if edit1.text = '12'then label1.caption: = 'декабрь'; end; end.  

Var  month: integer;   begin  writeln('введите номер месяца(1-12): ');   readln(month);       case month of    1: writeln('январь');     2: writeln('февраль');     3: writeln('март');     4: writeln('апрель');     5: writeln('май');     6: writeln('июнь');     7: writeln('июль');     8: writeln('август');     9: writeln('сентябрь');     10: writeln('октябрь');     11: writeln('ноябрь');     12: writeln('декабрь');     else              writeln('неверно введён номер месяца! ');     end; end.