Прерывание цикла Опции

[Raznorg]

Мне нужно чтобы цикл прерывался тогда, когда ответ меньше 0 и выводил первое число которое привело к этому вот программа :

Код

program _141_3;
uses crt;
var
x,z,a:integer;
y:real;
begin
clrscr;
z:=0;
write('col chisel I= ');
read(x);
for a:=1 to x do
z:=z+1;
y:=sin(z/100);
if y<0 then
writeln('first otr chisl pri I=',z)
else
writeln('malo chisel =)');
end.

Сообщение отредактировано: Raznorg - 12.11.2010 23:38