Составить алгоритм для вычисления значений выражения. На Pascal

var a,b,c:real;

begin
readln(b, c);

a:= (b*b + c*c) / ( 10 + abs( b*c ) )

writeln(a);
end;