Помогите решить задачу(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  endend.Тестовое решениеВведите a,b,h: 0 3 0.250.000     0.000000000.250     0.469395640.500     0.544579100.750     0.463642811.000     0.291926581.250     0.111164101.500     0.006128321.750     0.042029952.000     0.244910942.250     0.591903152.500     1.014824062.750     1.416754133.000     1.69755726var  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>bend.Тестовое решениеВведите a,b,h: 0 3 0.250.000     0.000000000.250     0.469395640.500     0.544579100.750     0.463642811.000     0.291926581.250     0.111164101.500     0.006128321.750     0.042029952.000     0.244910942.250     0.591903152.500     1.014824062.750     1.416754133.000     1.69755726