Работник зарабатывает Х руб. за каждые 38 часов своей работы. Ему платят в 1,5 раза больше за каждый час сверх 38 часов. Какую сумму он получит, если работает А часов (А должно быть заведомо больше 38).
Var A: Integer; var x, zp :real; label m; begin writeln('введите зарплату'); readln(x); m: writeln ('введите кол-во часов >38'); readln(a); if a<38 then goto m;<br>zp:=x+1.5*(A-38)*(x/38); writeln ('работник получит ', zp,' рублей') end.
ели чего непонятно - пиши