Составить мат. модель, алгоритм, программу для решения следующей задачи: Найти стоимость...

Question

Составить мат. модель, алгоритм, программу для решения следующей задачи:
Найти стоимость покупки с учетом скидки. Скидка в 10 % предоставляется, если сумма покупки больше 1000 рублей.

Answer 1

Var A : Real;
Begin
  Readln(A);
  If A>1000 then A:=A+A/10;
  Writeln(A:8:2);
end.