P_UTSS2.PAS

program utsS2;
uses crt, U_MENU, U_PROSES;
var stop,stop2 : boolean;
a,b,c,d,e,f,g,h,i,j : real;
ulang : char;
x,n,k,pil,r,t: integer;
z: string;

BEGIN
   Repeat
      stop := false;
      menu_uts(pil,true);
      case pil of
         1 :   repeat
                  stop2 := false;
                  NO_1(false);
                  PROS_1(a,b,c,d,e,f);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);

          2 :  repeat
                   stop2 := false;
                  NO_2(false);
                  PROS_2(a,b,c);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);

          3 :  repeat
                  stop2 := false;
                  NO_3(false);
                  PROS_3(a,b,c,d,e);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);

          4 :  repeat
                  stop2 := false;
                  NO_4(false);
                  PROS_4(a,b,c,d);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);

          5 :  repeat
                  stop2 := false;
                  NO_5(false);
                  PROS_5(a,b,c,d,e,f,g,h,i,j);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);

          6  : repeat
                  stop2 := false;
                  NO_6(false);
                  PROS_6(x,z);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);

          7  : repeat
                  stop2 := false;
                  NO_7(false);
                  PROS_7(a,b,c,d,e);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);
          8 : repeat
                  stop2 := false;
                  NO_8(false);
                  PROS_8(x);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);

          9  : repeat
                  stop2 := false;
                  NO_9(false);
                  PROS_9(z,a,b,c,d,e);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);

          10 : repeat
                  stop2 := false;
                  NO_10(false);
                  PROS_10(x,n,k);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);

          11 : repeat
                  stop2 := false;
                  NO_11(false);
                  PROS_11(x,n,k);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);

         12 : repeat
                  stop2 := false;
                  NO_12(false);
                  PROS_12(x,n,k,r,t);
                  gotoxy(20,20);write('Apakah mau keluar? Y/T :');
                  readln(ulang);
                  if (ulang = 'y') then
                     stop2 := true
                  else
                     stop2 := false;
               until(stop2);




          0 : stop := true;

      end;
   Until(stop);
   ClrScr;
  gotoxy(35,12);write('Terimakasih');
   Readln;
END.