НЕ МОГУ ПОНЯТЬ КАК ДОДЕЛАТЬ

[6ot777]

как настроить выбор последовательности?
там дальше ещё программа будет продолжаться для 2 других!
например:выберите последовательность:3
он переходит на 3 раздел где идет разложение треугольной последовательности
как это сделать?????


program furie;
var
n,k,i:integer;
Am,T,q,A0,f0:real;
a:array [1..50] of real;
b:array [1..50] of real;
const pi=3.14;
begin
writeln('Выбирете последовательность: 1-прямоугольная, 2-пилообразная, 3-трекгольная?');
readln;
writeln('n:');
readln(n);
writeln('Am:');
readln(Am);
writeln('q:');
readln(q);
writeln('T:');
readln(T);
a0:=Am/q;
f0:=1/T;
write('S=',A0:2:3,'+');
for i:=1 to n do
begin
a[i]:=((2*Am)/(pi*i))*sin((pi*i)/q);
write(a[i]:2:3,'cos(f0*',i,')');
end;
writeln;
write('chastota osnovnoi garmon=',f0:2:3);
readln;
end.

[GetMax]

Var
  p:Byte;
Begin
   writeln('Выбирете последовательность: 1-прямоугольная, 2-пилообразная, 3-    треугольная?');
  readln(p);
  Case p of
     1:Begin
           //тут код для прямоугольной последовательности
        End;
     2:Begin
           // тут код для пилообразной последовательности
     3:Begin
          //а тут для треугольной
        End
     Else Writeln('Ты че ввел то?!')
  End;

[6ot777]

Сообщение от GetMax

Var
  p:Byte;
Begin
   writeln('Выбирете последовательность: 1-прямоугольная, 2-пилообразная, 3-    треугольная?');
  readln(p);
  Case p of
     1:Begin
           //тут код для прямоугольной последовательности
        End;
     2:Begin
           // тут код для пилообразной последовательности
     3:Begin
          //а тут для треугольной
        End
     Else Writeln('Ты че ввел то?!')
  End;

че то не пашет!помогай)

[GetMax]

че то не пашет!помогай)

Код показывай