Pascal

Разработать алгоритмы и записать программу вычисления значения y в зависимости от введенного с клавиатурой x

спасибо))

var  x: real;begin  write('Введите x >> ');  readln(x);  if x <= -2 then    writeln('y = ', cos(2*x))  else if (x < 0) and (x > - 2) then    writeln('y = ', (3 + 2*x) / (x*x))  else if x > 0 then    writeln('y = ', ln(x) + x*x)  else    writeln('Выражение не определено')end.

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018// Внимание! Если программа не работает, обновите версию!begin  var x:=ReadReal('x=');  var y:real;  if x<=-2 then y:=Cos(2*x)  else    if x<0 then y:=(3+2*x)/(x*x)    else y:=Ln(x)+x*x;  Writeln(y)end.Примерx= 2.115.19878794748797x= 0-бесконечность