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