Помогите пожалуйста вычислить значение функции

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin   var a,b,b1,c1:real;   Write('Введите b1 и c1: '); Read(b1,c1);   a:=0.3;   while a<=10.2 do begin     b:=sqrt(b1*c1+sqr(a))/(a*sqr(a));     Writeln('a=',a:4:1,' b=',b);     a+=1.2     end end. Тестовое решение: Введите b1 и c1: 1.16 5 a= 0.3 b=89.8863785149007 a= 1.5 b=0.840667316095473 a= 2.7 b=0.18381397668166 a= 3.9 b=0.0772714754892418 a= 5.1 b=0.0425178510594072 a= 6.3 b=0.0269734389597432 a= 7.5 b=0.0186718393773587 a= 8.7 b=0.0137086409277832 a= 9.9 b=0.0105005974984954