program CalculateX;vara, b, x: real;beginwriteln('Введите значение a: ');readln(a);writeln('Введите значение b: ');readln(b);
x := (a + b) / (a * b);
writeln('Результат расчета x = ', x);end.
program CalculateX;
var
a, b, x: real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
x := (a + b) / (a * b);
writeln('Результат расчета x = ', x);
end.