написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется, если сумма покупок больше 500 рублей, в 5% - если больше 1000 рублей. Ниже представлен рекомендуемый вид экрана во время работы программы:

введите сумму покупки и нажмите Enter
-> 640
Вам предоставляется скидка 3%
Сумма покупки с учетом скидки: 620.80 руб.

ты супердетка)
доботаню химию и займусь
а то у меня фантазии не хватало.Написала калькулятор.

уу,для меня это темный лес.мы изучали паскаль 2 года в школе.но безрезультатно))

я 4 в лицее и тоже безрезультатно,сейчас хочу освоить.

не,мне после этого не хочется иметь с ним дело вообще))

написала прогу?)))

program skidka;
Var
a:real;
Begin
writeln('Здравствуйте!Вас приветствует магазин "У амбара".Введите цену товара,которого вы хотите приобрести.');
readln(a);
if a>0 then
Begin
a:=a-(a/100)*3;
writeln('Поздравляем вас! На этот товар предназначена скидка 3%');
writeln('Сумма товара с учетом скидки:');
writeln(a:0:2);
writeln('Спасибо за покупку,мы будем рады видеть Вас снова!');
end
else
writeln('Некорректный ввод');
readln;
End.

Написать программу проверки знания таблицы умножения. программа должна вывести 10 примеров и выставить оценку за 10 правильных ответов - "отлично", за 9 и 8 - "хорошо", за 7 и 6 - "удовлетворительно", за 6 и менее - "плохо".