Pascal ABC. Циклы.

[JaneRose]

Трижды протабулировать функцию, используя три различных цикла
f(x)=(sqrt(x3 − 6x2 +11x − 6)) на интервале x∈[0; 3.5], Δx = 0,4 , указав
значения аргумента, при которых функцию нельзя вычислить.

for:
program cicleForTabul;
var x0,f, f1, x,a:real;
N,k:integer;
begin
cls;
x0:=0;
N:=trunc((3.5-x0)/0.4);
for k:=0 to N do
begin
x:=x0+0.4*k;
if (exp((3*ln(x))-sqr(6)+(11*x)-6)>0) then
begin
f1:= exp((3*ln(x))-sqr(6)+(11*x)-6);
f:=sqrt(f1);
writeln('f(',x:8:2,') =',f:8:2);
end
else writeln ('не вычисляется при x=',x:8:2);
end;
end.

как сделать с repeat и while не поняла.

[Mandrivnyk]

вместо цикла for:

x := 0;
repeat
   ....
   x := x + 0.4;
until x <= 3.5;

[Mad_Cat]

exp((3*ln(x))

x*x*x

не проще было написать?