Exercício Número 01

Bom pessoal como já se tratamos os fundamentos do Pascal, agora neste Blog começarei a postar exercícios Para que vocês possam aprender a programação Pascal.
Caso queiram tirar alguma duvida podem me mandar um e-mail: thiago.cristoffer@hotmail.com
Os exercícios que postarei será em ALGORITMO para transformar em PASCAL.
OBS: O primeiro estarei resolvendo agora, más nos próximos só postarei a resposta no dia seguinte. Não se esqueçam dos compiladores que vocês terão que baixar Turbo Pascal ou o Pascalzim
1) Faça um programa que receba 4 números inteiros, calcule e mostre a soma deste números.


Algoritmo
Declare n1,n2,n3,n4,soma,numérico
leia n1,n2,n3,n4
soma:=n1+n2+n3+n4
escreva soma
Fim_Algoritmo
Agora teremos que construir em Pascal vamos lá?

Program ex1;
uses crt;
var n1,n2,n3,n4,soma:integer;
begin
clrscr;
write('primeiro número:');readln(n1);
write('segundo número:');readln(n2);
write('terceiro número:');readln(n3);
write('quarto número:');readln(n4);
soma:=n1+n2+n3+n4;
writeln('A soma é:',soma);
readln;
end.
O programa de vocês terá que esta neste formato:

Caso as pessoas novas que estão acessando o Blog agora não consigam entender é so acessar as postagens antigas que conseguirão acompanhar as aulas.