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