Помогите пожалуйста ! Надо до завтра !

var i:integer; y,x:real; begin writeln('Введите аргумент X'); readln(x); if (x>=0) and (x<=2) then    begin    y:=ln(30)+exp(2*x);    writeln('1 случай:');    end else     if (x<0) then        begin        y:=cos(x-5);        writeln('2 случай:');        end     else         begin         y:=2*pi*x;         writeln('3 случай:');         end; writeln('Значение функции Y = ',y); end.