Построить график-параболу в паскале авс

var i,s: integer;

begin

  for i: = 100 to 200 do

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

  writeln(s);

end.

  друг  жить на любом этаже дома. поэтому, для решения используем уравнение 24=х. но 24=16. следовательно, х=16. в доме 16 этажей.