Написать программу для нахождения суммы только отрицательных из N вводимых с клавиатуры целых чисел - Pascal ABC

Формулировка задачи:

Пожалуйста напишите программу я не могу понять как ее написать!

Решение задачи: «Написать программу для нахождения суммы только отрицательных из N вводимых с клавиатуры целых чисел»

Листинг программы

var n,i,a,s:integer;
begin
write('n=');
readln(n);
s:=0;
writeln('Введите ',n,' целых чисел');
for i:=1 to n do
 begin
  readln(a);
  if a<0 thn s:=s+a;
 end;
write('Сумма отрицательных=',s);
end.

Объяснение кода листинга программы

Создается переменная n типа integer, которая будет хранить количество введенных чисел.
Создается переменная s типа integer, которая будет хранить сумму отрицательных чисел.
Выводится сообщение n=, после чего считывается значение переменной n с клавиатуры.
Выводится сообщение Введите,n,' целых чисел`.
В цикле for i:=1 до n происходит следующее:
- Считывается значение переменной a с клавиатуры.
- Проверяется, является ли значение переменной a отрицательным. Если да, то к переменной s прибавляется значение переменной a.
- Цикл повторяется n раз.
Выводится сообщение Сумма отрицательных=, после чего выводится значение переменной s. Код выполняет задачу нахождения суммы только отрицательных из N вводимых с клавиатуры целых чисел.