Сведения команды из окружающего мира называется

2^i = 64

i = 6 бит приходится на 1 символ

3 * 40 * 60 * 6 = 43200 бит

43200 : 8 = 5400 байт

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

буфер обмена,перетаскивание,сохранение в файл

в первом будет такая закономерность +2,*2,-2 и соответственно 1,3,6,4,6; во второй будет такая: -2; +3; -   9,7,10,8,11; и последняя -1,-1,+5,-1,-,2,1,6,5,4,3.вот и все)