<-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.