ท่าน แอดมินดูให้ทีครับ กรุณาด้วยครับ

รอบกวน ท่านแอดมีนอีกซักทีครับ(งานครั้งนี้มีผลต่อผมเป็นอย่างมากครับ ผมทำไม่ได้จริงๆครับโง่มากมาย)

              กรุณาด้วยครับ(ต้องส่งวันจันทร์ ผมก็งมทำอยู่เหมือนกันแต่กลัวทำไม่ได้และไม่ทันครับ งานนี้จำเป็นอย่างมากครับ)



Program sem6_13;
Uses crt;
Var  height,base,redius,width,length,side,area:real;
    ans:char;

Begin
    clrscr;
    writeln('Menu selection for calculate the area');
    writeln;
    writeln('1.Triangle.');
    writeln('2.Circle.');
    writeln('3.Rectangln.');
    writeln('4.Square.');
    write('Select =====>'); ans:=readkey;
    writeln;
    case ans of
         '1':begin
                  write('base ='); readln(base);
                  write('height ='); readln(height);
                  area:=0.5*base*height;
                  writeln('Area of triangle =',area:6:2);
             end;


          '2':begin
                   write('radius ='); readln(redius);
                   area:=pi*redius*redius;
                   writeln('Area of circle +',area:6:2);
              end;


          '3':begin
                   write('width ='); readln(width);
                   write('length ='); readln(length);
                   area:=length*width;
                   writeln('Area of rectangle =',area:6:2);
              end;


          '4':begin
                   write('side of square ='); readln(side);
              area:=side*side;
              writeln('Area of square =',area:6:2);
              end;
           end;{Case}
           writeln(#07);
           readln;
End.


จากโปรแกรมนี้ จงปรับปรุงแก้ไขโปรแกรม ในส่วนของ ให้เพิ่มการถามผู้ใช้ว่าต้องการคำนวนหาพื้นที่ต่อหรือไม่(DO YOU WANT  TO CALCULATE AGIN (Y/N))  ดังนี้ ถ้าผู้ใช้งานต้องการคำนวนหาพื้นที่ต่อไปให้กด Y ถ้าผู้ใช้ไม่ต้องการให้กด N ถ้าผู้ใช้งาน กดอักษรตัวอื่น ๆ ที่ไม่ใช่ y  หรือ n ให้มีข้อความถามว่า DO YOU WANT  TO CALCULATE AGIN (Y/N) ซ้ำอยู่ย่างนั้น จนกว่าผู้ใช้จะกด Y หรือ N โดยให้ใช้คำสั้ง  GOTO,WHILE,REPEAT (1โปรแกรมต่อ 1คำสั้ง)
                                                                                     ขอบคุณเป็นอย่างสูงครับ