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

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

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 и менее - "плохо".