Дан алгоритм ветления. Чему на выходе будет равна переменная x, если a=14?

если честно я незнаю ☹☹☹

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

2.5 кбайт = 2560 -байт = 20480 бит

20480 : 2560  = 8

ответ: 8 минут.

вроде както так..