old/PAS/OLD/HW2.PAS

var
  test, num : boolean;
  a, b : shortint;


Begin
  test := true;
  num := false;
  Writeln ('�ணࠬ¬  ¤«ï ¯à®¢¥àª¨ ¯®á«¥¤®¢ â¥«ì­®áâ¨');
  Write ('‚¢¥¤¨â¥ 1 ­  ¯à®¢¥àªã ¯® ç¥â­®áâ¨, 2 ¯® §­ ªã ');
  Read (a);
  While (a <> 1) and (a <> 2) do begin
    Writeln ('‚ë ¤®«¦­ë ¢¢¥á⨠1 ¨«¨ 2');
    Read (a);
  end;
     Begin
      if a = 1 then
        begin
          Write ('‚¢®¤¨â¥ ­ âãà «ì­ë¥ ç¨á« , § ª®­ç¨â¥ ­ã«¥¬ ');
          Readln(a);
          b := a;
          if a <> 0 then
          begin
            Repeat
              Read (a);
              if a <> 0 then
              begin
                if (a mod 2) = (b mod 2) then
                  begin
                    test := false;
                    b := a;
                    num := true
                  end
                else Begin
                  b := a;
                  num := true
                end;
              end;
            Until a = 0;
          end
        end
       else begin
        Write ('‚¢®¤¨â¥ ­ âãà «ì­ë¥ ç¨á« , § ª®­ç¨â¥ ­ã«¥¬ ');
          Readln(a);
          b := a;
          if a <> 0 then
          begin
            Repeat
              Read (a);
              if a <> 0 then
              begin
                if not ((a > 0) and (b < 0) or (A < 0) and (b > 0)) then
                  Begin
                    test := false;
                    num := true;
                    b := a;
                  end
                else
                 begin
                   b := a
                 end;
              end;
            Until a = 0;
          end;
        end;
     end;
  if num = false then Write('�ë«® ¢¢¥¤¥­® ­¥¤®áâ â®ç­® ç¨á¥«')
   else
   begin
    if test = true then
      Writeln ('�®á«¥¤®¢ â¥«ì­®áâì ¢¥à­  ')
    else
      Writeln ('�®á«¥¤®¢ â¥«ì­®áâì ­¥ ¢¥à­  ');
   end;
  readln;
  Readln;
End.