CONCURSO DE CANTO (MÉDIA DA NOTAS)

{Em um concurso de canto a avaliação é composta de três fundamentos, o primeiro
é o timbre que tem peso 2, o segundo é a melodia que tem peso 3, o terceiro é
a desenvoltura em palco, que tem peso 5, todos terão notas e se a media for maior
que 7 o candidato estara classificado, faça um algoritimo que mostre se ele está
classificado ou desclassificado para a próxima etapa.}

program concurso;

  var timbre, melodia, desenvoltura, media: real;

begin
  write('Digite a nota para o TIMBRE.......:::');
  readln(timbre);
  write('Digite a nota para a MELODIA......:::');
  READLN(MELODIA);
  write('Digite a nota para a DESENVOLTURA.:::');
  readln(desenvoltura);


  timbre := timbre * 2 /10;
  melodia := melodia *3 /10;
  desenvoltura := desenvoltura *5 /10;
  media := (timbre + melodia + desenvoltura);


  if media >= 7 then
       writeln('     Classificado com nota', media:6:2)
  else
       writeln('     Desclassificado com nota', media:6:2);

  writeln();
  writeln();
  writeln();
  writeln('                       OBRIGADO');
  readln();

end.