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

var a,b,c:real;begin readln(b, c); a:= (b*b + c*c) / ( 10 + abs( b*c ) ) writeln(a);end;