Как узнать время прохождения программы?

[Behemoth000]

( без помощи GetTime)

[Serge_Bliznykov]

а Паскаль какой?
если Turbo, то попробуйте получать тики системы через такой код

var
 {для подсчёта тиков}
 Ticks      : LongInt  absolute 0:$46c;

если Паскаль под windows, то смотрите в сторону системного таймера

[Poma][a]

Как проверять по людски я не знаю..
Посему так :

uses SysUtils, DateUtils;

var
    st, en : TDateTime;
begin
    st := Now;

    <..>

    en := Now;
    WriteLn('for : ', MilliSecondsBetween(st, en))
end.

А кстати.. Какой системный?
Я быстренько погугил - тишина..
Вот про Убунтушку и ко - знаю, там time..

[Stilet]

Как проверять по людски я не знаю..

То что ты написал и есть "по-людски". Только MilliSecondsBetween убрать.

[Poma][a]

А как без него-то?

[Аватар]

gettickcount в фри паскале есть же наверно?

[Stilet]

А как без него-то?

Ну по факту это вещественные числа. Т.е. арифметикой - вычитанием

gettickcount в фри паскале есть же наверно?

GetTime насколько я понял намекает на Турбо.

[Poma][a]

Ну по факту это вещественные числа. Т.е. арифметикой - вычитанием

Неожиданно! Спасиб