mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-03 14:38:31 +02:00
18 lines
269 B
ObjectPascal
18 lines
269 B
ObjectPascal
program test_0_to_power_6;
|
|
|
|
uses
|
|
crt,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.
|