Лёгкий вопрос: на каком языке реализован алгоритм?

И так, вашему вниманию представлен следующий алгоритм:Procedure ReadLong(Var A:TLong);Var ch:Char;i:Integer;BeginFillChar (A,SizeOf(A) ,0) ;RepeatRead (ch) ;Until ch In ['0'..'9'] {*Пропуск не цифрв начале файла. *}While ch In ['0'..'9'] Do BeginFor i:=A[0] DownTo 1 Do Begin{*"Протаскивание"старшей цифры в числе из A в младшуюцифру числа из A[i+1]. *}A[i+1]:=A[i+l]+(LongInt(A)*10) Div Osn;A := (LongInt (A ) *10) Mod Osn;End;A[l] :=A[1]+Ord(ch)-Ord('0');{*Добавляем младшуюцифру к числу из А[1] . *}If А[А[0] +1]>0 Then Inc (А[0]);{ *Изменяем длину,число задействованных элементов массива А. *}Read (ch);End;End;Вопрос: на каком языке он написан?