Помогите пожалуйста, нужно написать код на PascalABS по этому тексту!
Размер оплаты за посещение ребенком детского сада зависит от
среднего месячного дохода на 1 человека в семье, который
определяется делением совокупного дохода семьи на количество
человек в семье. Если при этом доход на 1 человека меньше 5000
руб. в месяц, предоставляется скидка, равная 50% от базовой
оплаты. Если доход на 1 человека больше либо равен 5000 руб. и
меньше либо равен 7000 руб., предоставляется скидка 30%, если доход больше 7000 руб., скидка не предоставляется. Составить
программу определения оплаты при заданных значениях
совокупного месячного дохода семьи, количественного состава
семьи и базовой ставки оплаты за пользование детским садом.
program ChildcarePayment;
var
totalIncome, baseRate, monthlyIncomePerPerson, discount: real;
familySize: integer;
payment: real;
begin
// Ввод данных
write(‘Введите совокупный месячный доход семьи: ‘);
readln(totalIncome);
write(‘Введите количество членов семьи: ‘);
readln(familySize);
write(‘Введите базовую ставку оплаты: ‘);
readln(baseRate);
// Вычисление среднего месячного дохода на 1 человека в семье
monthlyIncomePerPerson := totalIncome / familySize;
// Проверка и применение скидки
if monthlyIncomePerPerson < 5000 then
discount := 0.5 // скидка 50%
else if (monthlyIncomePerPerson >= 5000) and (monthlyIncomePerPerson <= 7000) then
discount := 0.3 // скидка 30%
else
discount := 0; // скидка отсутствует
// Вычисление оплаты
payment := baseRate — (baseRate * discount);
// Вывод результата
writeln(‘Оплата за посещение детского сада: ‘, payment:0:2, ‘ руб.’);
end.