Информатики, помогите составить программу, складывающую предложенные числа так, чтобы получилось круглое число от 100 до 1000 на языке pascal.

var   x, y, z: integer; begin   writeln('-1 - конец ввода и вывод суммы');   repeat     readln(y);          if (y < -1) then        writeln('Эм... Не, не съем: отрицательная цЫфра.')     else       if (y >= 0) then          z := z + y       else         if (y = -1) then           if (z >= 100) then             break           else             writeln('Не, не годится, прибавь ещё чуток, до сотни не дотягивает');       if (z > 1000) then     begin       writeln('Всё, перевес. Сумма чисел больше 1000.');       exit;     end;          until (false);   writeln('Сумма примерно равна (если округлить) ', round(z / 10) * 10); end.