Сделать меню в Turbo Vision для трёх задач

var
  n,i,k,sigma1 : integer;
  q,s,sigma2 : real;
begin
  WriteLn;
  Write('n=');
 ReadLn(n);
 sigma2:=0;
 k:=0;
  for i:=1 to n
  do sigma2:=sigma2+i;
  sigma1:=1;
  q:=(i-k)/(i+k);
 s:=sigma1+sigma2+q;
 WriteLn('s=',s:0:1);
end.

var
 x,y,c,s,d : real;
 i,pow : integer;
Begin
 WriteLn;
 Write('x=');
 ReadLn(x);
 Write('y=');
 ReadLn(y);
 if (x>=-1) and (x<=2) and (y>=0)
 then
  begin
    begin
     for i:=1 to pow do
      x:=x+x;
     if ((not odd(pow)) and (pow<0)) then x:=x*(-1);
     c:=x;
    end;
   d:=abs(x)+1;
   s:=c/d;
  end
 else
  s:=sqr(x)*y;
 WriteLn('s=',s:0:1);
end.

var
  n,i : integer;
 x,s,sigma,a,q : real;
begin
 WriteLn;
 Write('n=');
 ReadLn(n);
 Write('x=');
 ReadLn(x);
 q:=x+1;
 a:=1/q;
 sigma:=0;
  for i:=1 to n
  do sigma:=sigma+i;
 s:=sigma+a;
 WriteLn('s=',s:0:1);
end.