Протабулировать значение функции

[gessi]

Протабулировать значение функции f(x,y)=x+[(3+(y*y))] в 1/3(в 1/3 только выражение в [] скобках) при x, изменяющемся от 0 до 1 с шагом 0.1 и y, изменяющемся от 0 до 1 с шагом 0.2.
ОЧЕНЬ НАДО!!!!!!!!!!!!!!!ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!

[ОДИНОЧЕСТВО В СЕТИ]

program tab;
uses crt;
function power(a,b:real):real;
begin
power:=EXP(b*LN(a));
end;
var x,y,f:real;
i:integer;
begin
clrscr;
x:=0;
y:=0;
 writeln('x     y      f');
for i:=1 to 11 do begin
 while y<1.2 do begin
 f:=x+power(3+y*y,1/3);

 writeln(x:6:3,y:6:3,f:6:3);
 y:=y+0.2;
 end;
 x:=x+0.1;
 y:=0;
 end;
readln;
end.

[gessi]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

program tab;
uses crt;
function power(a,b:real):real;
begin
power:=EXP(b*LN(a));
end;
var x,y,f:real;
i:integer;
begin
clrscr;
x:=0;
y:=0;
 writeln('x     y      f');
for i:=1 to 11 do begin
 while y<1.2 do begin
 f:=x+power(3+y*y,1/3);

 writeln(x:6:3,y:6:3,f:6:3);
 y:=y+0.2;
 end;
 x:=x+0.1;
 y:=0;
 end;
readln;
end.

ОГРОМНОЕ ВАМ СПАСИБО!!!!!!!!!!!!!!!!!!!!