SOMMANUM.PAS

Program somma_numeri;
Var n,s:integer;
Begin
S:=0;
For n:=1 to 5 do
S:=s+n;
Writeln('La somma dei primi 5 numeri Š ',S);
readln;
End.