Составьте программу вычисления суммы N целых чисел, вводимых с клавиатуры.(через паскаль)Помогите плиииз..

Var i,n,x,sum: integer;beginsum:=0;writeln('Введите кол-во чисел');readln(n);for i:=1 to n dobeginwriteln('Введите ',i,' число');readln(x);sum:=sum+x;end;writeln('Ответ: ',sum);End.