Program Case18;
var
N: integer;
temp, cout: integer;
s: String;
begin
repeat
write('Введите число:');
readln(N);
until (N > 100) and (N < 999);
temp := N div 100;
case temp of
1:
s := 'сто ';
2:
s := 'двести ';
3:
s := 'триста ';
4:
s := 'четыреста ';
5:
s := 'пятьсот ';
6:
s := 'шестьсот ';
7:
s := 'семьсот ';
8:
s := 'восемьсот ';
9:
s := 'девятьсот ';
end;
if (((N mod 100) > 9) and ((N mod 100) < 20)) then
begin
case (N mod 100) of
10:
s := s + 'десять';
11:
s := s + 'одинадцать ';
12:
s := s + 'двенадцать ';
13:
s := s + 'тринадцать ';
14:
s := s + 'четырнадцать ';
15:
s := s + 'пятнадцать ';
16:
s := s + 'шестнадцать ';
17:
s := s + 'семнадцать ';
18:
s := s + 'восемнадцать ';
19:
s := s + 'девятнадцать ';
end;
end
else
begin
case ((N mod 100) div 10) of
2:
s := s + 'двадцать ';
3:
s := s + 'тридцать ';
4:
s := s + 'сорок ';
5:
s := s + 'пятьдесят ';
6:
s := s + 'шестьдесят ';
7:
s := s + 'семьдесят ';
8:
s := s + 'восемьдесят ';
9:
s := s + 'девяносто ';
end;
case ((N mod 100) mod 10) of
1:
s := s + 'один';
2:
s := s + 'два';
3:
s := s + 'три';
4:
s := s + 'четыре';
5:
s := s + 'пять';
6:
s := s + 'шесть';
7:
s := s + 'семь';
8:
s := s + 'восемь';
9:
s := s + 'девять';
end;
end;
writeln(s);
end.