(2135 VICTOR REIS) Algoritmo

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program media ;
var
tt,pp,med:real; { -------------aqui estava integer }
x:string;
 Begin
 writeln('Decubra sua Média.');
 writeln('Digite sua nota do testão');
 read (tt);
 writeln('Agora digite sua nota da prova periodica');
 read (pp) ;
 med:=(3*tt+7*pp)/10;
 if (med<=4.96) then
 begin
 writeln(x:10,'Precisa estudar muito... ta de REC');
 writeln(x:10,'Média -',med:4:1);
 end 
 else { -----------------faltou else entáo o end anterior não poderia estar aqui}
 if (med<6.96) then
 begin
 writeln(x:10,'Precisa estudar... ta de final');
 writeln(x:10,'Média -',med:4:1);
	 end 
 else
 if (med>=6.96) then
 begin 
 writeln(x:10,'Safou... vai pra casa mais cedo');
 writeln(x:10,'Média -',med:4:1);
 end;
 End.