Como calcular média ponderada em Delphi - Ler o nome de um aluno e as notas de três provas - Exercícios Resolvidos de Delphi

Nome do aluno: MICHELE LEMOS
Informe a primeira nota: 6.7
Informe a segunda nota: 5.4
Informe a terceira nota: 9.5
A média do aluno MICHELE LEMOS é: 7.43 

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

// Algoritmo Delphi para calcular média ponderada

program estudos_delphi;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  nome: String;
  nota1, nota2, nota3, media: double;

begin
  try
    // vamos ler o nome do aluno
    Write('Nome do aluno: ');
    ReadLn(nome);

    // vamos ler as notas
    Write('Informe a primeira nota: ');
    ReadLn(nota1);
    Write('Informe a segunda nota: ');
    ReadLn(nota2);
    Write('Informe a terceira nota: ');
    ReadLn(nota3);

    // agora vamos calcular a média ponderada
    media := (nota1 * (30 / 100.0)) + (nota2 * (30 / 100.0)) +
      (nota3 * (40 / 100.0));

    // e mostramos a média obtida
    WriteLn('A média do aluno: ' + nome + ' é: ' + FloatToStr(media));

    WriteLn;
    Write('Pressione Enter para sair...');
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.