PASCAL: Berechne Umfang einer Ellipse

[Sinan]

Bitte hilft mir,
ich brauch ein quellcode das den umfang einer elipse errechnet

U = PI/2*(D+d)
F = (PI * D*d )/4
wenn D=d muss die ausgabe schreiben

Danke schonmal für eure hilfe