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

varprice, prepay:integer;beginWrite('Введите стоимость квартиры -> ');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