привет Пожалуйста посчитайте пожалуйста Составить программу вычисления суммы числ то 1 до N.N вводит пользователь ?

uses crt;var i,n,s:integer;beginn:=0;writeln('vvedite chislo');readln(s);for i := 1 to s don:=n+i;writeln(n);readln;end.

1. uses crt;
   var i,n,s:integer;
   begin
   n:=0;
   writeln('vvedite chislo');
   readln(s);
   for i := 1 to s do
   n:=n+i;
   writeln(n);
   readln;
   end.