Работник зарабатывает х руб. за каждые 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.