Скриптерді қай тілде жазады?

                                                                          нет

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.

8 битная кодировка => 1 символ занимает 8 бит.

2304*4 = 9216 символов на всех 4 страницах

9216*8 = 73728 бит занимают все страницы

73728/ 36.864 = 2 секунды

ответ: 2 секунды

var a: integer;

      s,s1: integer;

begin

  readln(a);

  s: =(a div 100)+((a mod 100) div 10)+((a mod 100) mod 10);

  s1: =(a div 100)*((a mod 100) div 10)*((a mod 100) mod 10);

  if s> 15 then writeln(s) else writeln(s1);

end.