old/PAS/OLD/HW1.PAS

var
  sum : real;
  num : real;
  a : shortint;

Begin
  num := 0;
  sum := 0;
  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 ('‚¢¥¤¨â¥ ­ âãà «ì­ë¥ ç¨á«®, § ª®­ç¨â¥ ­ã«¥¬ ');
          Repeat
            Read (a);
            if a <> 0 then
            begin
              if a mod 2 = 0 then
                begin
                  sum := sum + a;
                  num := num + 1;
                end;
            end
          Until a = 0;
        end
       else begin
        Write ('‚¢¥¤¨â¥ ­ âãà «ì­ë¥ ç¨á«®, § ª®­ç¨â¥ ­ã«¥¬ ');
          Repeat
            Read (a);
            if a <> 0 then
            begin
              if a mod 2 = 1 then
                begin
                  sum := sum + a;
                  num := num + 1;
                end;
            end;
          Until a = 0;
        end;
     end;
   if num <> 0 then
    Writeln ('‘।­¥¥  à¨ä¬¥â¨ç¥áª®¥ ', sum/num:0:2)
  else
    Writeln ('�®á«¥¤®¢ â¥«ì­®áâì ¯ãáâ , ¨«¨ ­¥ ¢¢¥¤¥­® ç¥â/­¥ç¥â ç¨á¥«');
  Readln;
  Readln;
End.