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

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.