Помогите написать программу на языке Паскаль для такой задачи:

Question

Помогите написать программу на языке Паскаль для такой задачи:

Женя Таранов Ученик (190), на голосовании 9 лет назад

Банк «Финансы и кредит» предлагает договор сроком на 12 месяцев, соответственно которого физическим лицам начисляется процентная ставка по завершению срока договора в зависимости от первичной суммы вклада: от 200 до 300 грн. – 24%, от 300 до 3000 грн. - 25%, свыше 3000 грн. – 25,5%. Определить сумму вклада после окончания договора, если известна первичная сумма вклада.

Answer 1

Jurijus Zaksas Искусственный Интеллект (430988) 9 лет назад

А если меньше 200 - тогда что?

Женя ТарановУченик (190) 9 лет назад

ничего.

Jurijus Zaksas Искусственный Интеллект (430988) Так не бывает. Нужен пустой стакан.

Валерий ШестаковПросветленный (25514) 9 лет назад

Тогда и это отберут :)

Answer 2

var a:real;
begin
readln(a);
if (a>200) and (a<300) then a:=a+a*0.24;
if (a>300) and (a<3000) then a:=a+a*0.25;
if (a>3000) then a:=a+a*0.255;
writeln(a);
end.{написал, всё как в условии}