Информатики, помогите составить программу, складывающую предложенные числа так, чтобы получилось круглое число от 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.