begin
writeln('стоимость всех билетов составит: ', 40*10*250+40*10*400+40*15*500);
end.
или еще вариант
var
s : integer; // сумма за все билеты
const
n : integer = 40; // количество кресел в ряду
s := n*10*250+n*10*400+n*15*500; // находим сумму
writeln('стоимость всех билетов составит: ', s); // выводим результат
begin
writeln('стоимость всех билетов составит: ', 40*10*250+40*10*400+40*15*500);
end.
или еще вариант
var
s : integer; // сумма за все билеты
const
n : integer = 40; // количество кресел в ряду
begin
s := n*10*250+n*10*400+n*15*500; // находим сумму
writeln('стоимость всех билетов составит: ', s); // выводим результат
end.