RosettaCodeData/Task/Zero-to-the-zero-power/Pascal/zero-to-the-zero-power.pas

program ZToZ;
uses
  math;
begin
  write('0.0 ^ 0 :',IntPower(0.0,0):4:2);
  writeln('   0.0 ^ 0.0 :',Power(0.0,0.0):4:2);
end.