Пожалуйста посчитайте СРОЧНОООО НАДО

0

program LilyaTheBreakingMe;

var x, y : integer;

begin

 read(x);

 if x <= 0 then writeln(0);

 if (0 < x) and (x <= 1) then writeln(x);

 if x > 1 then writeln(x * x);

end.

// набираешь -13 и там появится миленький 0!