<-HOME <-FLOWCHART PROGRAM Number6; USES crt; VAR ndo,npit,ncof,prido,pripit,pricof:integer; vat,amount,total:real; BEGIN prido:=10; pripit:=12; pricof:=6; clrscr; gotoxy(20,3); writeln('XYZ Coporation'); gotoxy(12,5); write('Quantity of Donut Ordered : '); readln(ndo); gotoxy(12,6); write('Quantity of Pizza Ordered : '); readln(npit); gotoxy(12,7); write('Quantity of Coffee Ordered: '); readln(ncof); amount:=(ndo*prido)+(npit*pripit)+(ncof*pricof); vat:=amount*0.07; total:=amount+vat; clrscr; gotoxy(20,3); write('XYZ Coporation'); gotoxy(5,5); write('*******************************************'); gotoxy(8,7); write('Amount charged is : ',amount:8:2); gotoxy(43,7); write('baht'); gotoxy(8,8); write(' VAT : ',vat:8:2); gotoxy(43,8); write('baht'); gotoxy(8,9); write('Total charged : ',total:8:2); gotoxy(43,9); write('baht'); gotoxy(5,11); write('*******************************************'); gotoxy(10,13); write('PROGRAM BY MISS ORATHAI JAIYAH 4411063'); END.