Question

помогите пожалуйста!

Answer 1

program number;
var  x, y : real;  
begin  write('Введите x и y: '); 
read(x, y);   
x := sqrt(x); 
y := sqr(y);   
x := x + 1; 
y := y + x;   
writeln('y = ', y);
end.