составьте программу вычисления у по заданному х на языке лазарус информатика

а какая зависимость f=y(x) ?

Program adsad; uses crt;  var   y:real;   x:real;    p:string;    begin     textcolor(Lightgreen);      writeln('Введите значение x: ');      readln(x);      writeln('Введите y под корнем: ');      readln(y);      y:= sqrt(x);      writeln('Ответ ', y);      if xlt;=0 then      if ylt;=0 then      y:=0; //Обнулил счетчик      y:=x*x;      writeln('Ответ ', y);
      end.