45 ! только напишите программу которая вводит целое число, не превышающее 100, и выводит его прописью, например, 21→"двадцать один". в паскале,

Program pr; var st: string;     n: integer; begin writeln ('введите число от 1-го до 100'); readln(n); st: ='';   case n of   100: st: =st+'сто';   10: st: =st+'десять';   11: st: =st+'одиннадцать';   12: st: =st+'двенадцать';   13: st: =st+'тринадцать';   14: st: =st+'четырнадцать';   15: st: =st+'пятнадцать';   16: st: =st+'шестнадцать';   17: st: =st+'семнадцать';   18: st: =st+'восемнадцать';   19: st: =st+'девятнадцать';   else   begin   case n div 10 of   2: st: =st+'двадцать ';   3: st: =st+'тридцать ';   4: st: =st+'сорок ';   5: st: =st+'пятьдесят ';   6: st: =st+'шестьдесят ';   7: st: =st+'семьдесят ';   8: st: =st+'восемьдесят ';   9: st: =st+'девяносто ';   end;   case n mod 10 of   1: st: =st+'один';   2: st: =st+'два';   3: st: =st+'три';   4: st: =st+'четыре';   5: st: =st+'пять';   6: st: =st+'шесть';   7: st: =st+'семь';   8: st: =st+'восемь';   9: st: =st+'девять';   end;   end; end; writeln(st); end.