tests/webtbs/tw1889.pp


1
2
3
4
5
6
7
8
9
10
11
12

var
    t,t1:int64;
    tsclo,tschi:cardinal;
    f:int64;
begin
  tschi:=1;
  tsclo:=0;
  f:=1;
  t1:=2;
  t:=1;
  writeln(((Int64(tscHi) shl 32 + tscLo) / ((T1-T) / F)));
end.