Есть ошибки? program z1; uses crt; var a,b,c: integer y: real; begin crlscr; writeln('vvedi 3 chisla'); readln(a,b,c); if a> =0 then y: =a+b+c else if(a0 then y: =exp(a*in(c)) else y: =0; writeln(y: 2: 2); readln; end.