помогите с решением задачи на языке паскаль

Question

помогите с решением задачи на языке паскаль

Ольга Башлай Ученик (205), на голосовании 10 лет назад

Генерирующие целые числа в интервале от -200 до 200 и суммирующие их, до тех пор пока сумма не превысит 1000. Подсчитать количество слагаемых.

Answer 1

program test;
var sum,x,count:integer;
begin
sum:=0;
count:=0;
randomize;
while (sum<=1000) do
begin
x:=random(400)-200;
sum:=sum+x;
count:=count+1;
end;
writeln(sum, ' - ', count);
end.