Работник

зарабатывает Х руб. за каждые 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.