Определи количество примененных к объекту модификаторов.
1
2
3

var i,s: integer;

begin

  for i: = 100 to 200 do

      if i mod 17=0 then s: =s+i;

  writeln(s);

end.

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.

аборигеном                                                                                                                                                                                                                             

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал