Суммировать натуральные четные числа, пока сумма не превысит 200. определить количество слагаемых. решить циклом с предусловием.

Var
  i,s:integer;
begin
  i:=1; s:=0;
  while s<=200 do
  begin s:=s+i; Inc(i) end;
  Writeln('В сумме, равной ',s,', количество слагаемых равно ',i-1)
end.

Результат выполнения программы:
В сумме, равной 210, количество слагаемых равно 20