ЕСТЬ ОШИБКИ? program z1; uses crt; var a,b,c:integer y:real; ...

Vasy

ЕСТЬ ОШИБКИ?
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.