Сколько места надо выделить для хранения 19 страниц книги, если на каждой странице помещаются 33 строки по 63 символа в каждой? (ответ в байтах)

33*63=2079 на одной странице 2079*19=39  501   байт - для 19 страниц

//прога на pascal`e const n = 10; var  a: array  of shortint; i, min, sumcount: shortint; sum: integer; begin randomize; setlength (a, n); writeln ('исходный массив: '); for i: =0 to n-1 do begin a[i]: =random (101)-50; write (a[i], '; '); if a[i] in [10..15] then begin inc (sum, a[i]); inc (sumcount); end; if a[i]< a[min] then min: =i; end; if min< > (n-1) then begin a[min]: =a[min]+a[n-1]; a[n-1]: =a[min]-a[n-1]; a[min]: =a[min]-a[n-1]; end; writeln (); if sumcount> 0 then writeln ('ca чисел в промежутке [10..15]: ', sum/sumcount) else writeln ('нет чисел в промежутке [10..15]'); writeln ('удален элемент a[', min+1, '] = ', a[n-1], '; измененный массив: '); setlength (a, n-1); for i: =0 to n-2 do write (a[i], '; '); end.

pascalabc

program time;

var h1,h2,m1,m2,s1,s2: integer;

begin

  writeln('введите первый момент времени: ');

  write('часы = '); readln(h1);

  write('минуты = '); readln(m1);

  write('секунды = '); readln(s1);

  writeln('введите второй момент времени: ');

  write('часы = '); readln(h2);

  write('минуты = '); readln(m2);

  write('секунды = '); readln(s2);

  s1: =h1*3600+m1*60+s1;

  s2: =h2*3600+m2*60+s2;

  writeln('между первым и вторым моментом прошло ',s2-s1,' секунд.');

  end.