Turbo Pascal g 7.0 według Andrzeja Marciniaka...

program faktóra;

var liczba^ARRAY of [milion,tysięcy,set,dziesiat,setnelnych=groszy]=liczba

liczba=string;

{początek procedury zamieiającej cyfre na polski}

procedure słownie:=string{

var

begin 

end;

{zakończenie proceury}

begin   

   clrscr;

   writeln('POdaj liczbe')){przykladowo liczba=123milony456tysiecy789 i 12setnych=123456789,12}

   readln(liczba);{ lenght(liczba)=11}

   repeat

        begin

            a:=milion:=123;

            b:=tysiecy:=456;

            c:=set:=789;

            d:=groszy:=12;

        end;

        słownie(a:='milionow'+b:='tysięcy'+c:='set' + d:='groszy') {:=123milonów456tysięćy789 i 12 groszy};

      until false

end.