allekco Oct 23rd, 2019 14 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- x: real;
- if x = 0 then writeln(0.00);
- if x > 0 then writeln(x:2:2);
- if x < 0 then writeln(-x*x:2:2);
RAW Paste Data