Program n_1;
var gorod, x, y: integer;
beginwrite('Введите кол-во библиотек для детей: ');readln(x);write('Введите кол-во библиотек для взрослых: ');readln(y);writeln('В районе ', x, ' библиотек для детей');writeln('В районе ', y, ' библиотек для взрослых');writeln('В городе ', 3*x, ' библиотек для детей');writeln('В городе ', 3*y, ' библиотек для взрослых');end.