algorithm Extract(↓f1, ↓l1, ↓f2, ↓l2, ↑f3, ↑l3)
param
 size_t l1;
 char array f1[l1];
 size_t l2;
 unsigned int array f2[l2];
 size_t l3;
 char array f3[l3];
local
 if NOT Null then
 for i=0 to l2 do //finden der Länge von F3
 l3 = l3 + F2[i]; //die Zahlen von F2 werden addiert
 end
 for i = 0 to l2 do //erhöht Index von F2 und führt 2e Schleife l2 oft aus
 for k = 0 to F2[i] do //Ausführung so oft wie Zahl in F an Stelle i
 write(F1[i]) //Ausgabe des Wertes an Stelle i in F1
 end
 end
 end
 else do
 write("Der Array ist leer.")
 end
end