Составить решение на языке паскаль: у=x^2, если x< =0 и у=корень из х, если х< 0/

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 x<=0 then      if y<=0 then      y:=0; //Обнулил счетчик      y:=x*x;      writeln('ответ ', y);
      end.