Напишите программу, которая вводила бы целые числа и суммировала их до тех пор, пока пользователь не ввел число 0

Vara,s:integer;begin  s:=0;  repeat  readln(a);  s:=s+a;  until a=0;  writeln('Сумма чисел: ',s);end