Решите.....................

Question

Решите.....................

---

Answer 1

Var
  x,y: real;
 begin
  readln(x);
  if(x
  else if(x > 0) and (x
  else if(x > 1) then begin y := sqr(x);write(y); end;
end.

Ввод 13
Вывод 169