Работник
зарабатывает Х руб. за каждые 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;
zp:=x+1.5*(A-38)*(x/38);
writeln ('работник получит ', zp,' рублей')
end.