ps.)
Zauważyłem że troche żle pokazuje na końcu tzn za duzo fwiazdek jest na koncu i lekko go zmodyfikowałem :
program blooop;
uses Crt;
var liczba : string[40];
i :integer;
procedure pokaz_liczbe(i:integer);
begin
if liczba[i]='0' then write('zero*');
if liczba[i]='1' then write('jeden*');
if liczba[i]='2' then write('dwa*');
if liczba[i]='3' then write('trzy*');
if liczba[i]='4' then write('cztery*');
if liczba[i]='5' then write('pięć*');
if liczba[i]='6' then write('sześć*');
if liczba[i]='7' then write('siedem*');
if liczba[i]='8' then write('osiem*');
if liczba[i]='9' then write('dziewięć*');
end;
begin
clrscr;
write('Podaj liczbe ?');readln(liczba);
writeln;
i:=0;
write('*');
repeat
i:=i+1;
pokaz_liczbe(i);
until liczba[i]<('0');
readkey;
end.
istnieje tez mozliwosci konca tzn until ( bierze narazie jak cos jest mniejsze od 0 tzn w sumie różne mozna dac tak kiedy natknie sie na znak entera lub eof nie pamietam kodu ( o ile pamietam to $0d$0a ) ale łba nie dam sobie opciąc
