Free Pascal, помогите сделать задачу

[oksa2312]

Free Pascal, помогите сделать задачу

Задана цена товара C, количество проданного товара K в день, номинал заработной платы продавца в день N. Рассчитать заработную плату продавца в день Z. Если K≤10, то заработная плата равна номиналу Z=N. Если 10<K≤50, то к номиналу заработной платы прибавляется двадцать процентов от суммы дневной выручки. Если K>50, то к номиналу заработной платы прибавляется тридцать процентов от суммы дневной выручки.

 

[Vladimir_S]

Задана цена товара C, количество проданного товара K в день, номинал заработной платы продавца в день N. Рассчитать заработную плату продавца в день Z. Если K≤10, то заработная плата равна номиналу Z=N. Если 10<K≤50, то к номиналу заработной платы прибавляется двадцать процентов от суммы дневной выручки. Если K>50, то к номиналу заработной платы прибавляется тридцать процентов от суммы дневной выручки.

Да... непростая ситуация. В том смысле, что обычно мы предлагаем с подобными ясельными задачками справляться самостоятельно: на чем же еще учиться азам программирования, как не на них? Но, учитывая, что "Oksa" в нике скорее всего означает "Оксана", т.е. Вы девушка, и по случаю праздника - ладно, ловите:

Const
 C=10; {price of goods unit}
 N=100; {nominal seller wages}
Var
 K:Word; {number of units sold per day}
 Z:Real; {real seller wages}
Begin
 Repeat
  Write('Number of units sold (0 to exit) ');
  Readln(K);
  If K<=10 then Z:=1.0*N else
  If K>50 then Z:=1.0*N+0.3*K*C else
  Z:=1.0*N+0.2*K*C;
  Writeln('Wages = ',Z:0:2);
 Until K=0;
End.

 

[Nikolas71]

извиняюсь за свою тупость, но не подскажите ли мне как будет выглядеть алгоритм для данной программы?