программа по на нахождению y=4x/12b+10  в паскале

Var y,x,b:real; begin writeln('Введите значения x,b');read(x,b); y:=4*x/12*b+10; writeln('У=',y);end.ты это имел ввиду