begin
  var tree1 := Random(10000);
  var tree2 := tree1 div 2;
  var tree3 := tree2 * 3;
  WriteLn('Всего деревьев в лесу: ', tree1 + tree2 + tree3, ', из них:');
  WriteLn('- берез: ', tree1, newLine, '- дубов: ', tree2, newLine, '- елей:  ', tree3);
end.