Паскаль помогите пожалуйста 2!

Паскаль помогите пожалуйста 2!
Ограничение времени: 1 с
Ограничение памяти: 64 M

На стандартном потоке ввода задаётся последовательность целых чисел. Каждое число последовательности не меньше -20000000 и не больше 20000000. Всего последовательность состоит не более чем из 40 чисел. Последовательность завершается признаком конца ввода. На стандартный поток вывода напечатайте сумму этих чисел.

Примеры

Входные данныеРезультат работы
1 2 3 4 10

без N

Код плз ТОЛЬКО ПАСКАЛЬ!!! !

По Русски
Вводим определенное количество чисел (не более 40) через пробел и выводит суму этих чисел
ПРИМЕР1
1 2 4 5
ответ 12
1 2 3 4 5 6
ответ 21

  • Что непонятно в предыдущем моем ответе?
    "Используйте цикл while и считывайте числа и суммируйте. Если размера числа не хватает - используйте тип comp."
  • program name;
    var a,k:longint;
    begin
    read (a);
    while a<>0 do
    begin
    k:=k+a;
    read (a);
    end;
    write (k);
    end.

    Признак конца ввода у меня НОЛЬ, можешь изменить на тот символ, который нужен.