Найти сумму всех чисел, вводимых с клавиатуры.Программа заканчивает своё выполнение и выводит результат при вводе 0

Готов сделать, отпиши мне в пм координаты для связи

Юля, если речь идёт не о большой арифметике и сумма влезает в тип longint пиши в приват помогу бесплатно.

Вот ответ на твой вопросс

[code]uses crt;
var a,summa: integer;
begin
writeln('Vvedi shisla');
summa:=0;
repeat
readln(a);
summa:=summa+a;
until a=0;
writeln(summa);
readln;
end.

вы вовремя))
на дату посмотрите.