Паскаль. С клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. Программа должна напечатать эту сумму прописью.Пример: пятнадцать рублей.

Предыдущий
вопрос Следующий
вопрос

program SumInWords;

var
num, hundreds, tens, ones: integer;

begin
writeln('Введите целое число от 1 до 1000: ');
readln(num);

hundreds := num div 100;
num := num mod 100;

tens := num div 10;
ones := num mod 10;

write('Сумма прописью: ');

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
1:
begin
case ones of
0: write('десять рублей');
1: write('одиннадцать рублей');
2: write('двенадцать рублей');
3: write('тринадцать рублей');
4: write('четырнадцать рублей');
5: write('пятнадцать рублей');
6: write('шестнадцать рублей');
7: write('семнадцать рублей');
8: write('восемнадцать рублей');
9: write('девятнадцать рублей');
end;
end;
2: write('двадцать ');
3: write('тридцать ');
4: write('сорок ');
5: write('пятьдесят ');
6: write('шестьдесят ');
7: write('семьдесят ');
8: write('восемьдесят ');
9: write('девяносто ');
end;

if (tens <> 1) then
case ones of
1: write('один рубль');
2: write('два рубля');
3: write('три рубля');
4: write('четыре рубля');
5: write('пять рублей');
6: write('шесть рублей');
7: write('семь рублей');
8: write('восемь рублей');
9: write('девять рублей');
end;

end.