Script in mir unbekannter Programmier-Sprache

[rap]

Hallo,

ich habe folgendes Script gefunden. Leider ist es in einer mir unbekannten Programmiersprache geschrieben:

Ziffernfolge : array[1..10] of 0..9;  
Summe := 0; Produkt := 10;  
  
for Stelle := 1 to 10 do  
 begin  
  Summe := (Ziffernfolge[Stelle] + Produkt) mod 10;  
  if Summe = 0  
    then Summe := 10;  
  Produkt := (Summe * 2) mod 11  
 end;  
Prüfziffer := 11 - Produkt;  
if Prüfziffer = 10  
 then Prüfziffer := 0;  

Weiß jemand, welche Programmiersprache das ist?
Könnte es mir jemand in Java, PHP oder C umschreiben, weil ich mich mit Arrays nicht so gut auskenne?

Danke