Valós típus - példaprogram

program Valos_Pelda;
uses Crt;
var alap, kitevo, hatvany: real;
begin
  ClrScr;
  Write('Kérem a hatvány alapját: ');
  ReadLn(alap);
  Write('Kérem a hatvány kitevőjét: ');
  ReadLn(kitevo);
  hatvany := Exp(kitevo * Ln(alap)); {ld. logaritmus definiciója, logaritmus azonosságok}
  WriteLn('A hatvány értéke: ', hatvany:10:2);
  ReadLn
end.