fork(1) download 
  1. program Project16;
  2.  
  3. type
  4.   TA = (a1,a2,a3);
  5.   TB = (b1,b2,b3);
  6.  
  7.   TASet = set of TA;
  8.   TBSet = set of TB;
  9.  
  10.   procedure test(x: TASet; y: TBset);
  11.   begin
  12.  
  13.   end;
  14.  
  15. begin
  16.   test([a1,a2],[]);
  17.   test([a1..a3],[b2]);
  18.   test([a1..a3],[b1..b3]);
  19. //  test([a1,b2],[b1,b3]); - не скомпилится.
  20.  
  21.  
  22.  
  23. end.
  24.  
Success #stdin #stdout 0s 276KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/7ZUNmB
language:
Pascal (fpc 3.0.4)
created:
12 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!