Так как вы не указали на каком языке писать, я написал на Pascal.
var
x,money,zp:real;
begin
writeln('Сколько часов отработал работник?');
readln(x);
zp:=38*100;
if (x< 38) then
begin
money:=zp-(38-x)*100;
writeln('Зарплата: ',money);
end
else if (x>38) then
begin
money:=(x-38)*100*1.5+zp;
writeln('Зарплата: ',money);
end
else writeln('Зарплата: ',zp);
readln;
end.