Rekurencyjny sposób realizacji programów

Algorytm Euklidesa
program AlgorytmEuklidesa;
uses crt;
function NWD(a,b:integer):integer;
begin
  if a>b then NWD(a-b,b) else if b>a then NWD(a,b-a);
end;
begin
  clrscr;
  write(NWD(24,30));
  readkey;
end.

Kwadraty rekurencyjnie
program figura1;
uses crt,graph;
var s,t:integer;
procedure kwadrat(a:integer);
begin
  setcolor(yellow);
  rectangle(100-a,100-a,100+a,100+a);
  if a-10>0 then kwadrat(a-10)
end;
begin
   initgraph(s,t,'');
   kwadrat(100);
   readkey;
   closegraph;
end.

Silnia rekurencyjnie
program silniarek;
uses crt;
function silnia(n:byte):longint;
begin
  if n=0 then silnia:=1
  else silnia:=n*silnia(n-1);
end;
begin
  clrscr;
  silnia(3);
  writeln(silnia(3));
  readkey;
end.
begin
   initgraph(s,t,'');
   kwadrat(100);
   readkey;
   closegraph;
end.