Создать приложение на Delphi, вычисляющее стоимость покупки с учетом скидки

[g.xaus]

Помогите пожалуста написать задачу в в среде Delphi
Создать приложение, вычисляющее стоимость покупки с учетом скидки, если сумма покупки >2000 тг. то предоставляется скидка 5% , ели стоимость покупки >5000, то предоставляется скидка 10%, если стоимость покупки меньше 2000, то скидка не предоставляется.

[Вадим Мошев]

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

А тг - это что? Тэньге?

[Sciv]

var Percent: integer;
    Summa, FullSum: reaf;
begin
  Summa:=StrToFloat(Edit1.Text);
  If (Summa>5000) then Percent:=10 else
  if (Summa>2000) and (Summa<=5000) then Percent:=5 else
  Percent:=0;
  Edit2.Text:=IntToStr(Percent);
  FullSum:=Summa+Summa*Percent/100;
  Edit3.Text:=FloatToStr(FullSum);
end;

Код навешать на событие нажатия кнопки.

[Вадим Мошев]

Да плевать автор темы хотел на всё вообще.
Вроде люди разные, а методы одни и те же: запостить тему на несколько форумов, сидеть, ждать когда придёт решение и игнорировать предложения о платной помощи.

Ненавижу таких.

[g.xaus]

Спасибо большое ))))