programa Exercicio22;
 
var
  nota1, nota2, nota3, nota4 : Real;
  media : Real;  
inicio
  Escreva('Informe a nota 1: ');
  Leia(nota1);
 
  Escreva('Informe a nota 2: ');
  Leia(nota2);
 
  Escreva('Informe a nota 3: ');
  Leia(nota3);
 
  Escreva('Informe a nota 4: ');
  Leia(nota4);
 
  media := (nota1 + nota2 + nota3 + nota4) / 4;
 
  se (media >= 5) entao
    Escreva('O aluno foi APROVADO com media: ', media)
  senao
    Escreva('O aluno foi REPROVADO com media: ', media); 
fim.

program Exercicio25;
 
{$mode objfpc}{$H+}
 
uses
  Classes,
  SysUtils;
 
var
  nota1, nota2, nota3, nota4 : Double;
  media : Double;
begin
  try
    Write('Informe a nota 1: ');
    Readln(nota1);
 
    Write('Informe a nota 2: ');
    Readln(nota2);
 
    Write('Informe a nota 3: ');
    Readln(nota3);
 
    Write('Informe a nota 4: ');
    Readln(nota4);
 
    media := (nota1 + nota2 + nota3 + nota4) / 4;
 
    if (media >= 5) then
      Writeln('O aluno foi APROVADO com media: ', media :0:2)
    else
      Writeln('O aluno foi REPROVADO com media: ', media :0:2);
 
    Write(#10#13#10#13, 'Tecle "Enter" para sair.');
    Readln;
 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.