Repository URL to install this package:
|
Version:
3.2.0 ▾
|
program test_0_to_power_6;
uses
math;
var
result,number,exponent : integer;
begin
number := 0;
exponent := 6;
result := number ** exponent;
write (result);
if result<>0 then
begin
Writeln(' 0 ** 6 should be equal to 0');
Halt(1);
end;
end.