Programação em pascal

1- Faça uma programa que receba quatro notas de um aluna, calcule e mostre a media aritmética das notas e a mensagem de aprovad ou reprovado, considerando para aprovação media 7.

Algoritmo

Titulo Media
Inicio
Declare nt1, nt2, nt3, nt4, md numérico
Escreva “entre com a primeira nota”
Leia nt1
Escreva “entre com a segunda nota”
Leia nt2
Escreva “ entre com a terceira nota”
Leia nt3
Escreva “ entre com a quarta nota”
Leia nt4 md ((nt1 + nt2 + nt3 + nt4)/4)
Escreva “ a media aritmetica é” md
Se md >= 7.0 então escreva “Aluno aprovado”
Se md < 7.0 então escreva “ Aluno reprovado”
Fim

Linguagem de programação Pascal

program Media; uses crt; var nt1, nt2, nt3, nt4, md: real; begin clrscr; write ('entre com a primeira nota: '); readln (nt1); write ('entre com a segunda nota: '); readln (nt2); write ('entre com a terceira nota: '); readln (nt3); write ('entre com a quarta nota: '); readln (nt4); md:= ((nt1 + nt2 + nt3 + nt4)/4); writeln (' A media aritmetica é: ', md:5:2); if md >= 7.0 then writeln (' Aluno aprovado');

if md < 7.0 then writeln (' Aluno Reprovado'); readln end.

3)
Algoritmo
Declare N1, N2, Numerico;
Escreva “Entre com o Primeiro Numero” ;
Leia (N1);
Escreva “Entre com o Segundo Numero”;
Leia (N2);
Se N1<N2
Então
Escreva ”O Menor numero é o Primeiro”;
Se N2<N1
Escreva ”O Menor numero é o Segundo”;
Se N1=N2 então Escreva ”Os numeros são iguais”;
Fim.

4) Número 1 (N1), Número 2 (N2), Número 3 (N3).

Algoritmo
Declare N1, N2, N3 Numérico
Escreva “Entre com N1, N2, N3”
Leia (N1, N2, N3)
Se N1 > N2 E > N3
Então Escreva “O número maior é”, N1
Senão Se N2 > N1 E > N3
Então Escreva “O número maior é”, N2
Senão Se N3 > N1 E > N2
Então Escreva “O número maior é”, N3
FIM.

Program EX4
USES CRT ;
Var N1, N2, N3 : Real ;
BEGIN
CLRSCR ;
Writeln (‘Entre com os números N1, N2, N3’) ;
Readln (N1, N2, N3) ;
IF N1 > N2 AND > N3
THEN