Запросить количество сотен, десятков и единиц в загаданном числе и вывести его полное название

uses crt;
var
s,d,e:integer;
so,de,ed:string;
 
begin
clrscr;
write('Vvedite sotni, desyatki, edenici: ');
readln(s,d,e);
 
case s of
1: so:='sto';
2: so:='dvesti';
3: so:='tristo';
4: so:='chetiresto';
5: so:='pyatsot';
6: so:='shestsot';
7: so:='semsot';
8: so:='vosemsot';
9: so:='devyatsot';
end;
 
case d of
1: de:=' desatb';
2: de:=' dvadcatb';
3: de:=' tridcatb';
4: de:=' sorok';
5: de:=' pyatdesat';
6: de:=' shestdesyat';
7: de:=' semdesyat';
8: de:=' vosemdesyat';
9: de:=' devyanosto';
end;
 
case e of
1: ed:=' odin';
2: ed:=' dva';
3: ed:=' tri';
4: ed:=' 4etire';
5: ed:=' pyatb';
6: ed:=' shestb';
7: ed:=' semb';
8: ed:=' vosemb';
9: ed:=' devyatb';
end;
 
if (d=1) and (e=1) then de:= ' odin'; ed:='nadcatb'; de:=de;
if (d=1) and (e=2) then de:= ' dve'; ed:='nadcatb'; de:=de;
if (d=1) and (e=3) then de:= ' tri'; ed:='nadcatb'; de:=de;
if (d=1) and (e=4) then de:= ' chetir'; ed:='nadcatb'; de:=de;
if (d=1) and (e=5) then de:= ' pyat'; ed:='nadcatb'; de:=de;
if (d=1) and (e=6) then de:= ' shest'; ed:='nadcatb'; de:=de;
if (d=1) and (e=7) then de:= ' sem'; ed:='nadcatb'; de:=de;
if (d=1) and (e=8) then de:= ' vosem'; ed:='nadcatb'; de:=de;
if (d=1) and (e=9) then de:= ' devyat'; ed:='nadcatb'; de:=de;
 
writeln(so,de,ed);
readkey;
end.

uses crt;
var
s,d,e:integer;
so,de,ed,ed1:string;
 
begin
clrscr;
write('Vvedite sotni, desyatki, edenici: ');
readln(s,d,e);
 
case s of
1: so:='sto';
2: so:='dvesti';
3: so:='tristo';
4: so:='chetiresto';
5: so:='pyatsot';
6: so:='shestsot';
7: so:='semsot';
8: so:='vosemsot';
9: so:='devyatsot';
end;
 
case d of
1: de:=' desatb';
2: de:=' dvadcatb';
3: de:=' tridcatb';
4: de:=' sorok';
5: de:=' pyatdesat';
6: de:=' shestdesyat';
7: de:=' semdesyat';
8: de:=' vosemdesyat';
9: de:=' devyanosto';
end;
 
case e of
1: ed:=' odin';
2: ed:=' dva';
3: ed:=' tri';
4: ed:=' 4etire';
5: ed:=' pyatb';
6: ed:=' shestb';
7: ed:=' semb';
8: ed:=' vosemb';
9: ed:=' devyatb';
end;
 
if d<>1 then begin writeln(so,de,ed); readkey; exit; end else
 
if (e=1) and (d=1) then de:=' odinndacatb';
if (d=1) and (e=2) then de:= ' dvenadcatb';
if (d=1) and (e=3) then de:= ' trinadcatb'; 
if (d=1) and (e=4) then de:= ' chetirnadcatb';
if (d=1) and (e=5) then de:= ' pyatnadcatb'; 
if (d=1) and (e=6) then de:= ' shestnadcatb';
if (d=1) and (e=7) then de:= ' semnadcatb';
if (d=1) and (e=8) then de:= ' vosemnadcatb';
if (d=1) and (e=9) then de:= ' devyatnadcatb';
writeln(so,de);
readkey; exit;
 
end.