Срочно!!!! Написать программу, реализующую акцию, проводимую при продаже квартир в...

Question

Срочно!!!!
Написать программу, реализующую акцию, проводимую при продаже квартир в соответствии с листовкой (вложение)

---

Answer 1

Var
price, prepay:integer;
begin
Write('Введите стоимость квартиры -> ');
Readln(Price);
Write('Введите предоплату за квартиру в процентах -> ');
Readln(prepay);
Case Prepay of
20:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.05);
30:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.06);
50:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.08);
100:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.1);
end;
end.

Пример:
Введите стоимость квартиры -> 1000000
Введите предоплату за квартиру в процентах -> 100
Общая стоимость квартиры -> 900000