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.

program _141_3;
uses crt;
var
z:integer;
y:real;
begin
clrscr;
z:=0;
repeat
z:=z+1;
y:=sin(z/100);
until y<0;
writeln('first otr chisl pri I=',z);
end.