Question

решите.....................

Answer 1

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

Ввод 13
Вывод 169