Gente sou iniciante em Sistemas da Computação preciso de uma ajuda...?

camila-f

Escreva um programa em pascal para ler as notas das duas avaliações de um aluno no semestre, Calcular e escrever a media semestral e a seguinte mensagem "Parabéns você foi aprovado. Somente se i aluno for aprovado (considerando 6.0 a media minima para aprovação.

engenheiro-joem

Olá,

Program Notas;

Uses Crt;

var

nota1, nota2 : Real;

media_semestral : Real;

Begin

ClrScr;

Write ('Primeira nota: '); ReadLn (nota1);

Write ('Segunda nota: '); ReadLn (nota2);

media_semestral := (nota1+nota2)/2;

if media_semestral > 6 then

WriteLn ('Parabens voce foi aprovado')

else

WriteLn ('voce foi reprovado!');

ReadLn;

End.