Получить отрицательную сумму, Задача (1 курс) Опции

[Орхидея]

Сегодня мне была дана задачка:
Написать программу получения из N чисел (N=10) вводимых с клавиатуры получить отрицательную сумму.
Знакома я с паскалем всего два часа мне он понравился, не судите строго меня за мою примитивность просто я его очень мало знаю и написала как знаю. Скажите верна ли такая программка при данном условии.

Код

uses crt;
var
n,n1,n2,n3,n4,n5,n6,n7,n8,n9,x,x1;longint;
begin
write('n,n1,n2,n3,n4,n5,n6,n7,n8,n9=');
readln(n,n1,n2,n3,n4,n5,n6,n7,n8,n9);
x:= n+n1+n2+n3+n4+n5+n6+n7+n8+n9;
writeln('n+n1+n2+n3+n4+n5+n6+n7+n8+n9=',x)
x1:= x*-1;
writeln('x*-1=',x1);
end.

Я раньше нигде не програмировала, так что тут все мои знания за два часа по Фаронову.
Правильно ли решена задача?

[Орхидея]

Как я поняла - i - у тебя выступает в роли колл-ва переменных, это верно, но я не пойму где у тебя написано значение икса выходит я сразу ввожу значение икса вроли уже известной мне сумму и если число отрицательное, программа складывает его с числом 0 что выводит его в виде отрицательного значение, но мне нужно еще и вводить значения самих чисел из которых выйдет эта сумма. или я может чего то не понимаю

Поняла всё)))) легче было бы сделать не: если бы икс был меньше 0, а оставить любое значение, а просто
обозначить

Код

sum:= (sum+X)*-1

так было бы намного легче думаю

не не так
Вот так

Код

readln(x);
sum: sum+x;
writeln('sum=',sum*-1)

Так точно верно выдаст)