"Delphi" Programlama dilinde "Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

program Main;

{$APPTYPE CONSOLE}

uses
  Math;

var
  radius, c, area: Double;

begin
  Write('Yarıçap Girin: ');
  Readln(radius);

  c := 2 * Pi * radius;
  area := Pi * Power(radius, 2);

  Writeln('Dairenin Çevresi: ', c);
  Writeln('Dairenin Alanı: ', area);
end.