Media ponderada

[FAWAUGHAN]

Olá pessoal boa tarde envio a vocês um programa em pascal que calcula a média ponderada das notas

program media_ponderada; 
(*programa em pascal que calcula a media ponderada*)
uses crt; 

var nota1,nota2,nota3,peso1,peso2,peso3:integer;

media:real ; 

begin 
clrscr; 

writeln('digite as 3 notas ');
readln(nota1,nota2,nota3);

writeln('digite os pesos das 3 notas');
readln(peso1,peso2,peso3); 

media:=(nota1*peso1+nota2*peso2+nota3*peso3)/(peso1+peso2+peso3);

writeln('A media ponderada e :',media:6:2);
readkey();
end.