uses crt;
var x,a,y:real;
i,i1,i2:integer;
begin
clrscr;
x:=0;
a:=0.12;
i:=0;
i1:=0;
i2:=0;
while x<=3 do
begin
y:=0.01*exp(x)+cos(x);
i:=i+1;
if y<>0 then
begin
writeln('x=',x:4:1,' y=',y:6:2);
if y<0 then i1:=i1+1;
if y>0 then i2:=i2+1;
if i1+i2=20 then
begin
write('Press Enter...');
readln;
end;
end;
x:=x+a;
end;
write('vsego y=',i,' y<0 =',i1,' y>0 =',i2);
readln
end.