Помогите пожалуйста составить программу!

Question

В кинотеатре 30 рядов по 40 мест в каждом ряду. Стоимость билетов с 1 по 8 ряд А рублей, с 9 по 30 ряд-В рублей. Составьте программу, которая подсчитывает сумму денег, полученную от продажи билетов на 1 сеанс, если все билеты были проданы.

Татьяна Марченко · Accepted Answer

паскаль? 
 
var a, b, s: integer; 
begin 
readln(a, b); 
s := 8 * (40 * a) + 22 * (40 * b); 
writeln(s); 
end.