Pascal! дана последовательность целых чисел признак окончаний которой 0.найдите сумму всех элементов последовательности.

//Блок-схема во вложении.
var
 a,s:integer;
begin;
a:=1;
repeat
 readln(a);
 s:=s+a;
until a=0;
write(s);
end.

Подробное решение, а точнее программа внутри файла