fork download
copy 
  1. program ideone;
  2.  
  3. type
  4.   petuh = (petya, peetoox, petushok, pitux, roskomgovno);
  5.  
  6. var
  7.   a, b: set of petuh;
  8.   i: petuh;
  9.  
  10. begin
  11.   a := [petya, peetoox, petushok, pitux];
  12.   b := [peetoox, pitux, roskomgovno];
  13.   for i in a + b do
  14.     write(integer(i), ' ');
  15.   writeln;
  16.   for i in a - b do
  17.     write(integer(i), ' ');
  18.   writeln;
  19.   for i in a * b do
  20.     write(integer(i), ' ');
  21.   writeln;
  22.   writeln(roskomgovno in a, roskomgovno in b)
  23. end.
  24.  
Success #stdin #stdout 0s 9128KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0 1 2 3 4 
0 2 
1 3 
FalseTrue
https://ideone.com/cfA2Rf
language:
Pascal (gpc 20070904)
created:
7 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!