begin
  var a := new integer[2];
  var ch := 'a';
  var i := 0;
  
  while i < 2 do
    if integer.TryParse(ReadString($'{ch} ='), a[i]) then
    begin
      inc(ch);
      i += 1
    end;
  
  Write('Было: ', a[0], ' ', a[1], newline, 'Стало: ');
  for var j := 0 to 1 do
    Print(a[j].isEven ? a[j] * 3 : a[j] / 4)
end.