<-HOME  <-FLOWCHART
PROGRAM Number4;
USES crt;
VAR q1,q2,mid,final,total: integer;
        grade: char; ans:char;
BEGIN
    clrscr;
    repeat
   gotoxy(15,3);write('CALCULATE GRADE');
   gotoxy(10,4);write('Input score Quiz#1: ');readln(q1);
   gotoxy(10,5);write('Input score Quiz#2: ');readln(q2);
   gotoxy(10,6);write('Input score Midterm: ');readln(mid);
   gotoxy(10,7);write('Input score Final: ');readln(final);
   total:=q1+q2+mid+final;
   if total<60 then
      grade:='F'
   else if total<70 then
      grade:='C'
   else if total<80 then
      grade:='B'
   else grade:='A';
  gotoxy(10,8);write('Grade = ',grade);
  gotoxy(10,10);write('Want to continue [Y/N]... ');readln(ans);
  until (ans='N') or (ans='n');
  gotoxy(15,20);write('Program by Miss Orathai Jaiyah 4411063');
END.