with Ada.Calendar;
use Ada.Calendar;
with text_io; use text_io;

procedure Ora is
	package fio is new fixed_io(duration); use fio;
	t: Time := Clock;
begin
	Put(Year_Number'image(Year(t))&".");
	Put(Month_Number'image(Month(t))&".");
	Put(Day_Number'image(Day(t))&".");
	Put(Seconds(t));
	Put_Line(Ascii.ht & "elindult");
	loop
		t := Clock;
		Put(integer'image(integer(Seconds(t))/3600)&":");
		Put(integer'image(integer(Seconds(t))/60 mod 60)&":");
		Put(integer'image(integer(Seconds(t)) mod 60));
		Put(' ' & Ascii.cr);
	end loop;
end Ora;