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

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;