Здавствуйте. ,,с информатикой: нужно составить алгоритм для вычисления значения выражения на языке паскаля. c = a*b / a^2+b^2+1

Program krutioi;
var c, a, b:real;
begin
read(a, b);
c:=a * b / (a * a + b * b + 1);
writeln(c);
end.
надеюсь формулу правильно написал т.к из твоего текста непонятно как имено формула выглядет

Var a,b,c:real;
begin
readln(a,b);
c:=(a*b)/sqr(a)+sqr(b)+1;
writeln(c);
end.