Скачиваний:
18
Добавлен:
08.01.2014
Размер:
301 б
Скачать
(* рТПЗТБННБ tm -- ДЕНПОУФТБГЙС УФТХЛФХТЩ tm *)
uses linux,stdio;

var
t:longint;
tp:ptm;
begin
(* рПМХЮЙФШ УЙУФЕНОПЕ ЧТЕНС *)
t:=gettimeofday;

(* рПМХЮЙФШ УФТХЛФХТХ tm *)
tp := localtime (t);
printf ('чТЕНС %02d:%02d:%02d'#$a, [tp^.tm_hour, tp^.tm_min, tp^.tm_sec]);
halt (0);
end.
Соседние файлы в папке 12