mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-20 07:11:43 +02:00
17 lines
263 B
ObjectPascal
17 lines
263 B
ObjectPascal
program test_0_to_power_6;
|
|
|
|
uses
|
|
crt;
|
|
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. |