Вычислить скидку в оплате за товар, первоначальная ставка которой определяется суммой цифр в номере квартиры клиента. Если сумма покупки более 15000, то величина скидки увеличивается на 10%, если более 30000, то увеличивается на 15%. Исходные данные: номер квартиры, сумма покупки. Определить первоначальную ставку скидки (в %) и сумму скидки.

program rev;

var

 weight, price, revenue: integer;

begin

 write('Введите количество урожая, которое собрал фермер(кг): ');

 readln(weight);

 write('Введите цену за 1 кг картофеля: ');

 readln(price);

 revenue := weight * price;

 write('Выручка составила: ', revenue);

end.

Объяснение:

program rev;  // Название программы

var  

 weight, price, revenue: integer;  // Создание целочисленных переменных:

weight - вес урожая, который собрал фермер;price - цена картофеля за 1 килограмм;revenue -  выручка с продажи картофеля.

begin  // Начало программы

 write('Введите количество урожая, которое собрал фермер(кг): ');  // Вывод сообщения в консоль

 readln(weight);  // Считываем с клавиатуры вес урожая

 write('Введите цену за 1 кг картофеля: ');  // Вывод сообщения в консоль

 readln(price);  // Считываем с клавиатуры цену картофеля за 1 килограмм

 revenue := weight * price;  // Рассчитываем выручку с продажи картофеля по формуле: выручка = вес * цена за 1 кг

 write('Выручка составила: ', revenue);  // Вывод сообщения в консоль и значение переменной revenue (выручка)

end. // Конец программы