Ответ: var  i:integer;begin  i:=100;  while (i+7<200) do begin    inc(i,7);    write(i,’ ‘);  end;end.