Технический форум - Free Pascal, помогите сделать задачу

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Free Pascal, помогите сделать задачу (http://www.tehnari.ru/f43/t70255/)

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

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

Цитата:

Сообщение от oksa2312 (Сообщение 695850)

Да... непростая ситуация. В том смысле, что обычно мы предлагаем с подобными ясельными задачками справляться самостоятельно: на чем же еще учиться азам программирования, как не на них? Но, учитывая, что "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.

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