Определить стоимость покупки с учетом скидки . Скидка в 10% предоставляется если сумма покупки больше 1000 рублей. Входные данные S-стоимость покупки.

вот несколько примеров: 2021₁₀=MMXX1
583₁₀=DXXIII

Решите, пожалуйста, наподобие верхних вот эти примеры:
321₁₀=
и наоборот в цифры:
DXCI=
CMXLVI=
CDLXIX=

For i:=-10 to -3 do
A [ i ] := 2*I;
2) Начертить получившийся массив и обозначить его индексы:
K:=1;
For i:=-10 to -3 do
begin
A [ i ] : 2*I+k;
K:=k*2
End;

предоставленной скидки зависит от стоимости приобретенных в магазине товаров.Если общая стоимость покупки меньше 201 грн,скидку не предоставляют. Если покупатель приобретет товары на сумму от 201грн до 501 грн,то он получит скидку х%. Если же общая стоимость покупок превышает 501 грн,его скидка будет у%.

в 5% - если сумма больше 1000 руб. Фрагмент программы: if x>500 then y:=0.97*x; if x>1000 then y:=0.95*x;