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

Question

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

---

Answer 1

var x,y: real;

begin

  readln(x);

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

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

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

  writeln(y:0:4);

end.

Answer 2

var y,x:real;
begin
write('Введите x = ');
readln(x);
if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;
writeln('y = ',y:0:2);
end.