в городе 3 района,в районе х библиотек для детей,у библиотек для взрослых.Сколько библиотек в городе и сколько в районе

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.

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.