(Паскаль)нужно написать все процедуру в Паскале под номером 2

Question

(Паскаль)нужно написать все процедуру в Паскале под номером 2

---

Answer 1

Procedure premia(days : integer; hasBadThings : boolean; stazh : integer; oklad : integer);
var
  prem : real;
begin
  prem := 0;

  if not hasBadThings then
  begin
    if (days > 45) and (stazh > 5) then
      prem := oklad * 20 / 100
    else if (days > 35) and (days < 45) and (stazh > 5) then
      prem := oklad * 15 / 100
    else if (days < 25) and (stazh > 5) then
      prem := oklad * 7 / 100
    else if (days < 25) and (stazh < 5) then
      prem := oklad * 5 / 100
    else if (days < 35) and (stazh > 5) then
      prem := oklad * 10 / 100  end;
 
  writeln('Премия сотрудника: ', trunc(prem));
end;

var
  days, stazh : integer;
  hasBadThings :boolean;
begin
  write('Стаж: ');
  readln(stazh);
  write('Замечания (True/False): ');
  readln(hasBadThings);
  write('Отработанные дни: ');
  readln(days);
 
  premia(days, hasBadThings, stazh, random(20000) + 20000);
end.

Comments

Не знаю, что делать с граничащими днями и стажем (45/35 + 5) т.к в условии этого нет. В этом случае премия будет 0