Паскаль,братцы пожалуйста помогите((

Question

Паскаль,братцы пожалуйста помогите((

---

Answer 1

Program z3;
var y:real; x:integer ;
begin
writeln('Введите X');
readln(x);
if x>=10 then
y:=sqrt((x-5)/2) else
y:=(x-5)/2;
writeln('При x = ',x ,'     y= ',y:4:2);
readln
end.