Programa de soma com cinco numeros.

Program Cinco_Numeros;
 Uses
   WINCRT;
 Var
   Numbers1, Numbers2, Numbers3,
   Numbers4, Numbers5, Sum : Integer;
 Begin
   ClrScr;
   WriteLn('Entre com os cinco números: ');
   ReadLn(Numbers1, Numbers2, Numbers3, Numbers4, Numbers5);
   Sum := Numbers1 + Numbers2 + Numbers3 +
   Numbers4 + Numbers5;
   WriteLn('A soma dos números é: ',Sum);
   WriteLn('Pressione ENTER ...');
   Readkey;
 End.