в городе 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.