Паскаль ,пожалуйста очень надо

Question

Паскаль ,пожалуйста очень надо

---

Comments

Плохо видно, да еще боком повернуто

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.