Primeiros exercicios em Pascal!

Foi solicitado para que começassemos a repetir as listas dos exercicios. So que agora em Pascal. Já indiquei no texto anterior o Dev-pascal. Muito melhor do que o turbo pascal no Windows 7. Usando o Dev-Pascal eu fiz o exercicio de cálculo da média. Veja como ficou o que eu fiz.

program media_das_notas;
uses crt;
{programa de calculo de média }

var n1, n2, n3, n4 : integer;
var media          :real;
var tc             : char;

begin
     tc:=readkey;
     write('Nota 1: ');
     readln(n1);

     write('Nota 2: ');
     readln(n2);

     write('Nota 3: ');
     readln(n3);

     write('Nota 4: ');
     readln(n4);

     media:=((n1+n2+n3+n4)/4);
          writeln('');
          writeln('');
     writeln('Media anual eh igual a: ', media);

     if (media >=7) then
         begin
             writeln('');
             writeln('');
             writeln('Aluno Aprovado');
         end
     else
         begin
             writeln('');
             writeln('');
             writeln('Aluno reprovado ');
         end
     ;
     writeln('');
     writeln('');
     writeln('Pressione <ENTER> para terminar');
     writeln('');
     writeln('');
     readln;
end

Para quem gosta e quer uma outra base de estudos, é só clicar neste link abaixo para encontrar bom material para estudar e usar.

FEC-UNICAMP – Programação em Pascal