Поделитесь своими знаниями, ответьте на вопрос:
ЯЗЫК ПАСКАЛЬ, Рассчитать надбавку к зарплате за стаж, если стаж от 2 до 5 лет, надбавка составляет S1 руб., если стаж от 5 до 10 лет – S2 руб. Ввести с клавиатуры зарплату и стаж, вывести надбавку и сумму к выплате.
const s1 = 10000;
const s2 = 15000;
var sum,zp,st: integer;
begin
write('Введите стаж: ');
readln(st);
write('Введите зарплату: ');
readln(zp);
if (st>=2) and (st<=5) then sum:=zp+s1
else if (st>5) then sum:=zp+s2;
writeln('Зарплата: ',zp);
writeln('Стаж: ',st);
if (st>=2) and (st<=5) then writeln('Надбавка: ',s1)
else if (st>5) then writeln('Надбавка: ',s2);
writeln('Сумма к выплате: ',sum);
end.