SKYLPHES

program media;
uses crt;
var n1 , n2 ,n3 , np , mp , nf, p, f, c,pf  : real;
    nome , materia :string ;
begin
clrscr;


        writeln (' digite seu nome e tecle enter para prosseguir ');
        readln  (nome);
        writeln (' ola ', nome , ' digite sua materia e tecle enter para prosseguir ');
        readln  (materia);
        writeln (nome, ' digite sua cargoraria ' );
        readln  (c);
        writeln (nome, ' digete quantas faltas voce tem ' );
        readln  (f);
        p:= (f / c )*100 ;
        if p<=25 then
        begin
        writeln(nome, ' voce esta apto a seguir com o programa ');
        readkey;
        end;
        if p>25 then

begin
        textcolor (red);
        writeln(nome, ' voce esta reprovado por faltas ');
        readkey;
 end;
        begin
        textcolor(lightblue);
        writeln (nome,' digite seu n1 e tecle enter para prosseguir ');
        readln  (n1);

Eu fiz assim e deu certo so que quando ele ja esta reprovado por falta nao e pra continuar so que esta indo pra esse writeln ( digite seu n1 ) como faço pra finalizar se o aluno ja estiver reprovado por falta. e desde ja agrade a compreensao de todos que ja me ajudaram

BOA NOITE!! Sou meio lego no assunto e gostaria de pedir ajudar pois curso engenharia civil e tenho um trabalho pra fazer com o pascal ja fiz uma parte mais a outra nao estou conseguindo que seria o aluno tem a cargoraria de 60 horas que daria 25 dias de aula o aluno que atingir 25 % de falta esta reprovado como faria isso no pascal se aluem poder me ajudar como disse sou meio ou todo lego no assunto rsrs e obrigado desde já .