1) Написать программу, которая вычисляет сумму первых n целых положительных чисел. Количество суммируемых чисел должно вводиться во время работы программы. (Использовать цикл While)

var  n, a, sum, i: longint;begin  readln(n);  sum := 0;  i := 1;  while (i <= n) do beign    read(a);    sum := sum + a;     inc(i);  end;  writeln(sum);end.

var i,s,n:Integer;beginReadLn(n);while i<n dobegini:=i+1;s:=s+iend;WriteLn(s)end.