Дано геометричну прогресію 12, 24, 48, 96, ... Написати програму визначення суми перших 11 членів з номерами, що кратні 5. Вивести ряд членів, величину суми та значення всіх доданків.Это делать в Паскале

Программа сделана для такой вот зависимости цены от количества слушателей:
Категория 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<=10 then p:=25000
               else if n<=15 then p:=20000 else if n<=30 then p:=15000;
 'C': if n<=5 then p:=35000
              else if n<=10 then p:=25000 else if n<=20 then p:=20000;
end;
if p<>0 then writeln('p=',p) else writeln('Что-то в данных не так');
end.

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

Program z1;  Var x,y,z,max,min,u:integer;Begin  write('Введите x  =  ');  readln(x);  write('Введите y =  ');  readln(y);  write('Введите z =  ');  readln(z);  if (x>y) then if (x>z) then max:=x                         else max:=z           else if (y>z) then max:=y                         else max:=z;  if (x<y) then if (x<z) then min:=x                         else min:=z           else if (y<z) then min:=y                         else min:=z;  u:=max+min;  writeln('U = ',u)End.