fork download
  1. Program n_4;
  2. var i: integer;
  3. const a: array [1..7] of integer= (3,4,-1,5,0,10,-12);
  4. begin
  5. for i:= 1 to 7 do write (a[i],'');
  6. end.
Success #stdin #stdout 0s 4224KB
stdin
Standard input is empty
stdout
34-15010-12