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á .