Un et Vn sont adjacente et ont la meme limite racinecarré(27)/pi
on recherche un algorithme qui calcule une approximation de pi en utilisant Vn

ces 2 phrases ne sont pas très claires mais ton algo a l'air assez simple ...

voilà votre solution

program exe7p146;
uses wincrt;
const pi = 3.141592653589793238;
type
tab = array [1..100] of real;

var
u : tab;
v : tab;
j : integer;

procedure calcul (var u : tab; var v : tab; var j: integer);
var
i : integer;
begin
j:=1;
u[1] :=1;
v[1] :=2;
repeat
j:=j+1;
u[j]:=(u[j-1] + v[j-1])/2;
v[j]:= sqrt(u[j]*v[j-1]);
until (abs(v[j] - v[j-1]) < 0.00001);
end;
procedure affiche (v : tab; n : integer);
begin
write( ' la valeur approché de suite est ', v[n]:6:5);
writeln(' leur rang est ', n);
writeln(' la valeur de suite est ', sqrt(27)/pi);
end;
begin
calcul (u, v , j);
affiche (v, j);
end.