program proga;
var
a: real;
b: real;
x: double;
begin
write ('Число b: '
readln(a);
write ('Число b: '
readln(b);
x :=((a+b)/a)/(b*a);
writeln ('Число x ', x)
end.
на бейсике еще проще
input "Число a: " a
input "Число b: " b
x =((a+b)/a)/(b*a)
Print "Число x: ", x
Ну а если хочешь сам понять, как это делать - ищи в интернете какие-нибудь самоучители. И не на ютубе. И начни лучше с паскаля, а в бейсик вообще не лезь, разве что в visual basic