ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!

---

Answer 1

VAR
X: REAL;
BEGIN
READLN (X);
IF X<=0 THEN WRITELN ('0');<br>IF (X>0) AND (X<=1) THEN WRITELN (X);<br>IF X>1 THEN WRITELN (SQR(X));
END.