Procedure Time ( var Година, Хвилина, Секунда : integer )

Процедура Час присвоює фактичним параметрам, які повинні бути цілими змінними, значення показів системного годинника в момент звертання до неї.
Параметри набувають таких значень:
Година - від 0 до 23;
Хвилина - від 0 до 59;
Секунда - від 0 до 59.