Получить отрицательную сумму, Задача (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.

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