Помогите, пожалуйста!!! ** языке Pascal решить данное выражение. Заранее спасибо!

Question

Помогите, пожалуйста!!! На языке Pascal решить данное выражение.
Заранее спасибо!

---

Answer 1

Var
s,x,y:real;
begin
write('Введите значение X=');read(x);
writeln('Введите значение Y=');read(y);
S:=sqrt(sqr(x)-2*y);
write('S=',S:5:2);
end.

Answer 2

Var x, y:integer; s:real ; Begin Readln(x, y) ; S:=sqrt(sqr(x) - 2*y); Writeln(s); End.