создать программу в паскале: желательно побыстрее,а то утром уже на учебу ))))))

Вопрос пользователя:

создать программу в паскале: желательно побыстрее,а то утром уже на учебу ))))))

Илюха отвечает:

var x,y: real;

begin

  readln(x);

  if x<=0 then y:=exp(x);

  if (x>0) and (x<=1) then y:=0;

  if x>1 then y:=ln(x);

  writeln(y:0:4);

end.