Question

водится положительное число прекратить ввод когда сумма введёных чисел превысит 100

Answer 1

uses crt;
var ch,s:integer;
begin
s:=0;
while s < 101 do
begin
readln(ch);
if ch > 0 then
s:=s+ch;

end;
end.