Voici un troisième exemple de programme Pascal



program complex(input,output) ;programme principal

type
complexe = record
re : real ;
im : real ;
end ;		déclaration d'un enregistrement

var a,b,c,d : real ; u,v,w : complexe ;		déclaration de variables

function add (z1,z2 : complexe) : complexe ;
déclaration d'une fonction

var z : complexe ;
variable locale


begin

début instruction composé
z.re := z1.re + z2.re ;
z.im := z1.im + z2.im ;
add := z ;
manipulation de structure
end ;fin instructions composées



begin


début programme principal
writeln('entrer 4 valeurs réelles');
readln(a,b,c,d) ;
u.re := a ;
u.im := b ;
v.re := c ;
v.im := d ;
w := add(u,v) ;
writeln('somme = (',w.re,',',w.im,')') ;
entrés/sorties conversationnelles
end. fin programme principal



Voici le programme en C correspondant.