old/PAS/Sortir/2N/NEw/RAZLO.PAS

var
  input : longint;
  n2,n3 : byte;

begin
  Write('い･､ｨ筵 遞皚ｮ: ');
  read(input);
  n2 := 0;
  n3 := 0;
  while (input <> 4) and (input <> 2) and (input<>0) do
  begin
    input := input - 3;
    inc(n3);
  end;

  while (input<>0) do
  begin
    input := input - 2;
    inc(n2);
  end;
  WriteLn('摺ｧｫｮｦ･ｭｨ･, ｯ爲 ｪｮ箘牋ｬ ｯ牋ｨｧ｢･､･ｭｨ･ ｬ�ｪ皖ｬ�ｫ�ｮ - ');
  WriteLn(n2,' - ､｢ｮｩｪｨ, ',n3,' - 籵ｮｩｪｨ');
  Readln;
end.