Укажите, сколько раз выполнится тело цикла с заданным заголовком:
FOR i := 5 DOWNTO 1 DO

1 бит на 1 символ, поэтому:

14400*10=144000 символов 

336600*10=3366000 символов 

writeln('a[',i,']=',a[i]);

readln;

end.

program xxx;

  var n, c, d, e, s : integer;

begin

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

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.