Найти сумму вво с клавиатуры положительных чисел. Выход при о

var a, s: real; begin s: =0; repeat writeln ('Введите положительное число'); readln (a); //Вводим положительное число if a < 0 then {Если введено не положительное число, печатаем сообщение об этом и начинаем цикл сначала} begin writeln ('Введено не положительное число. Введите число еще раз.'); continue; end; s: =s+a; until a=0; writeln ('Сумма введенных чисел равна: ', s); //Выводим суммуend.