[Сорокин_Роман]

Есть две процедуры. Их нужно выполнить из одной функции с промежутком в n секунд с тем условием, чтобы не использовать много процессорного времени. (Например:

Код:

procedure1;
for i := 1, 100000000 do
  sin(i);
procedure2;

не подходит.