blob: be7cedca16b48bb2274adc55cc45fc5d056c0fef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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.
|
