Calcul Score Bac

Program Score_Bac;
uses wincrt;
var
annuel,bac,math,phy,prog,tic,bd,fr,ang,score:real;
begin
repeat
writeln('Donner la moyenne de Mathématiques');
readln(math);
until ( math >=0) and ( math <=20);
clrscr;
repeat
writeln('Donner la moyenne de Programmation');
readln(prog);
until ( prog >=0) and ( prog <=20);
clrscr;
repeat
writeln('Donner la moyenne de Physique');
readln(phy);
until ( phy >=0) and ( phy <=20);
clrscr;
repeat
writeln('Donner la moyenne de TIC');
readln(tic);
until ( tic >=0) and ( tic <=20);
clrscr;
repeat
writeln('Donner la moyenne de Base de Données');
readln(bd);
until ( bd >=0) and ( bd <=20);
clrscr;
repeat
writeln('Donner la moyenne d''Français');
readln(fr);
until ( fr >=0) and ( fr <=20);
clrscr;
repeat
writeln('Donner la moyenne d''Anglais');
readln(ang);
until ( ang >=0) and ( ang<=20);
clrscr;
repeat
writeln('Donner la moyenne de Bac');
readln(bac );
until ( bac>=10) and ( bac <=20);
clrscr;
begin
score:=((math*1.5)+(phy*0.5)+(prog*1.5)+(0.25*tic)+(0.25*bd)+(0.5*fr)+(0.5*ang)+(bac*5));
end;
clrscr;
writeln('Math= ',math:2:2) ;
writeln('Programmation= ',prog:2:2) ;
writeln('Physique= ',phy:2:2) ;
writeln('TIC= ',tic:2:2) ;
writeln('Base de Données= ',bd:2:2 );
writeln('Francais= ',fr:2:2) ;
writeln('Anglais= ',ang:2:2) ;
writeln('Moyenne Bac= ',bac:2:2 );
writeln;
writeln('Clicker sur ENTER pour afficher votre Score');
readkey;
writeln;
writeln('Votre score est = ',score:2:2);
end.