50 баллов!!помогите,пожалуйста. Составить блок-схему и написать программу ** языке...

Question

50 баллов!!помогите,пожалуйста. Составить блок-схему и написать программу на языке Pascal. Определить ежемесячные показатели прибыли предприятия, от реализации N видов товара,в течение года по алгоритму : Доход = цена товара * реализовано в месяц; Себестоимость = постоянные издержки + переменные издержки * реализовано; Прибыль = доход – себестоимость; Вычислить прибыль предприятия за год.

Answer 1

var

 Price, Scost, Vcost, Income, CostPrice, Profit: Real;

 Amount: Integer;

begin

   Write ('Введите цену товара: ');

   Readln (Price);

   Write ('Введите количество реализованного товара : ');

   Readln (Amount);

   Write ('Введите постоянные издержки: ');

   Readln (Scost);

   Write ('Введите переменные издержки: ');

   Readln (Vcost);

   Income := Price * Amount;

   CostPrice := Scost + Vcost * Amount;

   Profit := (Income - CostPrice) * 12;

    Writeln ('Прибыть предприятия за год = ' + FloatToStr (Profit));

end;

Алгоритм здесь линейный, в виде последовательности пунктов:

1. Доход = цена товара * реализовано в месяц;

2. Себестоимость = постоянные издержки + переменные издержки * реализовано;

3. Прибыль за год = (доход – себестоимость) * 12;