## Код:
```
PROCEDURE Do*(N:INTEGER);
VAR  starttime, endtime:LONGINT;
BEGIN
  starttime := Kernel.Time();
  solve(N);
  endtime  := Kernel.Time();
  Log.Real((endtime-starttime)/1000);Log.Ln;
END Do;
```
