calculadora123545

Program MediaPonderada ;

Var N1, N2, N3, Soma, media : Real;
		P1, P2, P3 : Real;
		C: char;

Begin
	C:= "R";
	while C="R" do

	Writeln('Digite a nota 1');
	Readln(N1);
	Writeln('Informe o peso da unidade 1');
	Readln(P1);
	//
	Writeln('Digite a nota 2');
	Readln(N2);
	Writeln('Informe o peso da unidade 2');
	Readln(P2);
	//
	Writeln('Digite a nota 3');
	Readln(N3);
	Writeln('Informe o peso da unidade 3');
	Readln(P3);
	//
	media:=(N1*P1)+(N2*P2)+(N3*P3)/(P1 + P2 + P3);
	Writeln('A média é',media:3:2);
	  writeln('Digite R pra reinciar, digite qualquer outra letra pra fechar');
	  Readln(C);
	end;
End.