Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const
- b: array[0..10] of longint = (0, 2, 2, 2, 2, 3, 0, 0, 0, 0, 0);
- var
- a: array[0..10] of longint;
- x: longint;
- begin
- while not seekeof do begin
- read(x);
- inc(a[x]);
- end;
- for x := 0 to 10 do begin
- if a[x] <> b[x] then begin
- writeln('WIN');
- halt;
- end;
- end;
- writeln('FAIL');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement