program losimas_degtukais;
  { 22 u‘davinys }
  procedure degtukai (k1, k2 : integer; { degtuk— skai‡ius kr–vel‚se }
                      var imti : integer; { kiek degtuk— imti }
                      var kr_nr : integer); { iž kurios kr–vel‚s imti }
  begin
    if k2 > k1
       then kr_nr := 2
       else kr_nr := 1;
    imti := abs (k1 - k2) mod 3;
    if imti = 0            { vis tiek praložta }
       then imti := 1      { tai imame ma‘iau degtuk— }
  end;
  var k1, k2, imti, kr_nr : integer;
begin
  write ('­veskite degtuk— kiek abiejose kr–vel‚se: ');
  readln (k1, k2);
  degtukai (k1, k2, imti, kr_nr);
  writeln (imti, kr_nr : 2)
end.
