Составить алгоритм для вычисления значения выражения c=a*b/ a^2+b^2+1

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

Пример:
a = 2
b = 5
c = 28.5