Напишите программу для паскаля абс (старая версия) сумма от 1 до 5 написать сумма_пока то есть вид программы сумма_пока while по-

Var S,i:integer;
Begin
S:=0;
i:=1;
While i <= 5 do
   Begin
   S:=S+i;
   i:=i+1
   End;
WriteLn('S = ',S);
End.