uses dos;

var i: integer;
  h1, m1, s1, hund1 : Word;
  h2, m2, s2, hund2 : Word;
begin
gettime(h1, m1, s1, hund1);
for i:=1 to 10000 do write('.');
gettime(h2, m2, s2, hund2);
writeln('Start  ',h1, ':', m1, ':', s1, ',', hund1);
writeln('Koniec ',h2, ':', m2, ':', s2, ',', hund2);
end.