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

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

var
sum, units, tens, hundreds: integer;

begin
writeln('Введите сумму от 1 до 1000: ');
readln(sum);

if (sum < 1) or (sum > 1000) then
writeln('Ошибка. Введите число от 1 до 1000')
else
begin
hundreds := sum DIV 100;
tens := (sum MOD 100) DIV 10;
units := (sum MOD 100) MOD 10;

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

end;
end.