Сначала берём инструмент прямоугольник , кликаем в любом месте , затем берём инструмент выдавать и вытягиваем квадрат , дальше берём инструмент круг , и кликаем им на кубе , и с помощью инструмента выдавить вытягиваем круг
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadInteger2('Введите значения X и Y:');
Writeln('Стоимость билетов составит : ',150*x+100*y,' руб.')
end.
<em>Пример</em>
Введите значения X и Y: 12 27
Стоимость билетов составит : 4500 руб.