fork(1) download 
  1. program ideone;
  2.  
  3. uses SysUtils;
  4.  
  5. var A,B,D,C:TTime;
  6. begin 
  7.   A:=StrToTime('10:00:00');
  8.   B:=StrToTime('10:30:00');
  9.   C:=StrToTime('00:30:00');
  10.   D:=B-A;
  11.  
  12.   WriteLn('A=',A,';');
  13.   WriteLn('B=',B,';');
  14.   WriteLn('C=',C,';');
  15.   WriteLn('D=',D,';');
  16.   WriteLn('C-D=',C-D,';');
  17. end.
Success #stdin #stdout 0s 388KB
comments (?)
stdin 
Standard input is empty
stdout 
A= 4.16666666666667E-001;
B= 4.37500000000000E-001;
C= 2.08333333333333E-002;
D= 2.08333333333333E-002;
C-D= 1.73472347597681E-017;
https://ideone.com/nLbZX0
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!