uses Dos;
uses Dos;

type
  pa = ^Ta;
  ta = array[1..maxint div sizeof(integer)] of integer;
  tb = array[1..1] of integer;
  tc = array[1..1, 1..1] of integer;

var
  a: pa;
  b: tb;
  c: tc;

  i,j: longint;
  x: integer;
  start: longint;

const
  n = 30000;

type
   TTime = record   {Тип для зберігання часу}
     Hours,           {години}
     Minutes,         {хвилини}
     Seconds,         {секунди}
     HSeconds: Word   {соті долі секунди}
    end;

var
   StartTime,FinishTime: TTime;

function ResTime(const STime, FTime: TTime): Longint;
{Визначає різницю між часом закінчення і часом старту алгоритму}
begin
  ResTime :=
   360000*(FTime.Hours    - STime.Hours  )+ {часы}
    6000*(FTime.Minutes  - STime.Minutes)+ {минуты}
     100*(FTime.Seconds  - STime.Seconds)+ {секунды}
         (FTime.HSeconds - STime.HSeconds) {сотые секунды}
end;


begin
  GetMem(a,1*sizeof(integer));
  a^[1] := 1;
  with StartTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  for i:=-n to n do
    for j:=-n to n do
    x := a^[1];
	with FinishTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  writeln(ResTime(StartTime, FinishTime));
  FreeMem(a,1*sizeof(integer));

  b[1] := 1;
  with StartTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  for i:=-n to n do
    for j:=-n to n do
    x := b[1];
	with FinishTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  writeln(ResTime(StartTime, FinishTime));

  c[1,1] := 1;
  with StartTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  for i:=-n to n do
    for j:=-n to n do
    x := c[1,1];
	with FinishTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  writeln(ResTime(StartTime, FinishTime));
  readln;
end.