Пожалуйста посчитайте составить программу в PascalABC.составить программу для вычисления стоимости X театральных билетов по 150 руб.и Y билетов по 100 руб.

begin
  var (x,y):=ReadInteger2('Введите значения X и Y:');
  Writeln('Стоимость билетов составит : ',150*x+100*y,' руб.')
end.


Введите значения X и Y: 12 27
Стоимость билетов составит : 4500 руб.