Работник
зарабатывает Х руб. за каждые 38 часов
своей работы. Ему платят в 1,5 раза больше
за каждый час сверх 38 часов. Какую сумму
он получит, если работает А часов (А
должно быть заведомо больше 38).

var A: Integer;var x, zp :real;label m;beginwriteln('введите зарплату');readln(x);m: writeln ('введите кол-во часов >38');readln(a);if a<38 then goto m;zp:=x+1.5*(A-38)*(x/38);writeln ('работник получит ', zp,' рублей')end.