Помогите решить задачу(pascal) через while и repeat f(x)=sqrt(x)*cos^2*x

var   a,b,h,x,f:real; begin   Write('Введите a,b,h: ');   Read(a,b,h);   x:=a;   while x<=b do   begin     f:=sqrt(x)*sqr(cos(x));     Writeln(x:5:3,f:15:8);     x:=x+h   end end. Тестовое решение Введите a,b,h: 0 3 0.25 0.000     0.00000000 0.250     0.46939564 0.500     0.54457910 0.750     0.46364281 1.000     0.29192658 1.250     0.11116410 1.500     0.00612832 1.750     0.04202995 2.000     0.24491094 2.250     0.59190315 2.500     1.01482406 2.750     1.41675413 3.000     1.69755726 var   a,b,h,x,f:real; begin   Write('Введите a,b,h: ');   Read(a,b,h);   x:=a;   repeat     f:=sqrt(x)*sqr(cos(x));     Writeln(x:5:3,f:15:8);     x:=x+h   until x>b end. Тестовое решение Введите a,b,h: 0 3 0.25 0.000     0.00000000 0.250     0.46939564 0.500     0.54457910 0.750     0.46364281 1.000     0.29192658 1.250     0.11116410 1.500     0.00612832 1.750     0.04202995 2.000     0.24491094 2.250     0.59190315 2.500     1.01482406 2.750     1.41675413 3.000     1.69755726