вычисление стоимости покупки, Стоимость покупки с учетом скидки Опции

[Татьяна]

Помогите, пожалуйста!!! Мало понимаю и в компьютерах, не говоря о Паскале.
Условие: "Написать программу на языке програмирования Паскаль. Вычислить стоимость покупки с учетом скидки. Скидка 3% предоставляется в том случае, если сумма покупки больше 50 000 руб., в 5% - если сумма больше 100 000 руб.". Большое спасибо

[APAL]

Жаль конечно, что Вы даже не пытаетесь изучить компьютеры и Паскаль...
Программирование обучает логическому мышлению.

Код

Var k : Real;
Begin
Write('Введите сумму покупки: '); Readln(k);
If (k>50000) and (k<=100000) then k:=k-(k*3)/100;
If k>100000 then k:=k-(k*5)/100;
Writeln('Итоговая стоимость: ',k:8:2);
End.