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

Ответ:

var x,a,h,s:real;

begin

writeln('Введите кол-во часов');

readln(h);

writeln('Введите сумму за один час');

readln(x);

s:=0;

if h<=38 then s:=x*h;

if h>38 then S:=x*38+(38-h)*x*1.5;

writeln('Сумма=',s);

end.