Сотрудник работал за компьютером в типографии в течение двух лет, по 8 часов в день, по 40 часов в неделю. Опишите два действия, которые ему следует предпринять, чтобы сохранить свое здоровье.​

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.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

хвалебный