Срочно. В паскаль нужно преобразовать

Question

Срочно. В паскаль нужно преобразовать

---

Comments

уже не актуально?

Answer 1

program primer;

begin var x,y:real;

readln(x);

if x

 then y:=x**2

 else y:=sqrt(25*x);

writeln(y);

end.