Плата за обучение в некоторой автошколе зависит от категории подготовки и наполняемости групп для теоретических занятий. При подготовке на категорию B курсант платит за курс обучения 15 000 р., если количество слушателей в группе для теоретических занятий 30 человек. Если количество слушателей в такой группе 15 человек курсант платит 20 000 р. Если же количество слушателей в группе для теоретических занятий 10 человек, то курсант платит 25 000р. При подготовке на категорию C курсант платит за курс обучения 20 000 р., если количество слушателей в группе для теоретических занятий 20 человек. Если количество слушателей в такой группе 10 человек курсант платит 25 000 р. Если же количество слушателей в группе для теоретических занятий 5 человек, то курсант платит 35 000р. Запрограммировать вычисление суммы оплаты за курс обучения в зависимости от категории подготовки и наполняемости группы для теоретических занятий.

Программа сделана для такой вот зависимости цены от количества слушателей:
Категория B:
16-30 человек - 15 000 р.
11-15 человек - 20 000 р.
1-10 человек - 25 000р. 
Категория С:
11-20 человек - 20 000 р.
6-10 человек - 25 000 р. 
1-5 человек - 35 000р. 
Буквы В и С в программе английские.
var n,p:integer; k:char;
begin
write(Категория (B,C):); readln(k);
write(B:(1-30),C:(1-20) n = );readln(n);
p:=0;
case k of
 B: if n               else if n C: if n              else if nend;
if p0 then writeln(p=,p) else writeln(Что-то в данных не так);
end.

Пример работы:
Категория (B,C):B
B:(1-30),C:(1-20) n = 22
p=15000