Advertisement
Guest User

dalex

a guest
Jun 30th, 2011
1,837
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.31 KB | None | 0 0
  1. const
  2.     b: array[0..10] of longint = (0, 2, 2, 2, 2, 3, 0, 0, 0, 0, 0);
  3.  
  4. var
  5.     a: array[0..10] of longint;
  6.     x: longint;
  7.  
  8. begin
  9.     while not seekeof do begin
  10.         read(x);
  11.         inc(a[x]);
  12.     end;
  13.     for x := 0 to 10 do begin
  14.         if a[x] <> b[x] then begin
  15.             writeln('WIN');
  16.             halt;
  17.         end;
  18.     end;
  19.     writeln('FAIL');
  20. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement