Napisz program tłumaczący zapis wygenerowanej liczby zakres 4000-9000 na zapis słowny.
program cosik;
uses crt;
var liczba:integer;
function slowa(liczba:integer):string;
const
jednosci:array[0..9] of string =
('zer','jed','dwa','trz','czt','pie','sze','sie','osi','dzi');
dziesiatki:array[0..9] of string =
('zer','jed','dwa','trz','czt','pie','sze','sie','osi','dzi');
setki:array[0..9] of string =
('zer','jed','dwa','trz','czt','pie','sze','sie','osi','dzi');
tysiace:array[0..4] of string =
('zer','jed','dwa','trz','czt','pie','sze','sie','osi','dzi');
var J,D,S,T:string;
begin
J:=liczba mod 10;
D:=(liczba div 10) mod 10;
S:=(liczba div 100) mod 100;
T:=(liczba div 1000) mod 1000;
writeln(jednosci[J]+dziesiatki[D]+setki[S]+tysiace[T]);
end;
begin
clrscr;
liczba:=random(5001)+4000;
readln(liczba);
writeln(slowa(liczba));
writeln('Liczba = ', slowa(liczba));
readkey;
end.