Program Test; uses crt;

var time:longint absolute $0:$046C;
    timestart,timeend: longint;

Begin clrscr;
TimeStart:=Time; {Начало выполнения программы}

{Тело программы}

TimeEnd:=Time; {Конец выполнение программы}

Writeln(' Время выполнения программы: ',(TimeEnd-TimeStart)/18.2:2:5,' сек.');
Readln;
end.