Guest User

Untitled

a guest
Aug 17th, 2018
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.66 KB | None | 0 0
  1. Const size = 4;
  2.  
  3. Var arr:                array [1..size] of Integer;
  4.     i:                  Integer;
  5.  
  6. Begin
  7.     if(Boolean(size xor 4)) then
  8.     Begin
  9.         WriteLn('Iou are f*cking st*pid b*tch');
  10.         exit;
  11.     End
  12.     else
  13.     Begin
  14.         for i := 1 to size do
  15.             Read(arr[i]);
  16.         if(arr[1] <> arr[2]) then
  17.         Begin
  18.             if(arr[2] <> arr[3]) then
  19.                 WriteLn('[2]')
  20.             else
  21.                 WriteLn('[1]');
  22.         End
  23.         else
  24.         Begin
  25.             if(arr[2] <> arr[3]) then
  26.                 WriteLn('[3]')
  27.             else
  28.                 WriteLn('[4]')
  29.         End;
  30.     End;
  31. End.
Add Comment
Please, Sign In to add comment