var
number, ones, tens, hundreds: integer;
begin
writeln('Введите целое число от 1 до 999:');
readln(number);

ones := number mod 10;
tens := (number div 10) mod 10;
hundreds := number div 100;

case hundreds of
1: write('Сто ');
2: write('Двести ');
3: write('Триста ');
4: write('Четыреста ');
5: write('Пятьсот ');
6: write('Шестьсот ');
7: write('Семьсот ');
8: write('Восемьсот ');
9: write('Девятьсот ');
end;

case tens of
2: write('двадцать ');
3: write('тридцать ');
4: write('сорок ');
5: write('пятьдесят ');
6: write('шестьдесят ');
7: write('семьдесят ');
8: write('восемьдесят ');
9: write('девяносто ');
end;

case ones of
1: write('один');
2: write('два');
3: write('три');
4: write('четыре');
5: write('пять');
6: write('шесть');
7: write('семь');
8: write('восемь');
9: write('девять');
0: begin
if (tens = 0) and (hundreds = 0) then
write('ноль');
end;
end;
end.