Найти значения y>0 и у<0 и их количество для y=0.01 * на е(в степени х)+cosx, если 0=<х=<3.0 альфа=0.12 - Pascal(Паскаль)

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.