ХЕЛП, срочно надо! 50 БАЛЛОВ

Question

ХЕЛП, срочно надо! 50 БАЛЛОВ

---

Answer 1

Var x, y: integer;
begin
write('x = ');
readln(x);
if x <= 0 then y := 0;<br>if ((x > 0) and (x <= 1)) then y := x;<br>if x > 1 then y := x * x;
writeln(y);
end.

При x = 8, y = 64.

Comments

правильно, но поздно) всё равно спасибо