Использование циклических структур

[MegaHandsome]

Я написал программу с использование циклических структур,которая решает функцию,но сделал без одного оператора цикла.
Операторы цикла: внешний repeat внутренний while.
Я незнаю куда вставить надо repeat,подскажите пожайлуста.
Программа работате,но думаю без рипита она не верна...=/
program lab3;


uses crt;
var x,xn,xk,hx,y,yn,yk,hy,z:real;
begin clrscr;
writeLn('Enter xn,xk,hx,yn,yk,hy');
readLn(xn,xk,hx,yn,yk,hy);
x:=xn;
while x<xk+hx/2 do
begin y:=yn;
while y<yk+hy/2 do
begin z:=(2*sqr(y)+sin(x))/(sqrt(x*x*x+5*(sqr(x))+1));
writeLn('x=',x:6:2,'y=',y:6:2,'z=',z:6:2);
y:=y+hy;
end;
x:=x+hx;
end;
readkey;
end.

[demon416]

ИМХО бред
боты осмысленней пишут
хочеш чтобы помогли
давай саму задачу

[MegaHandsome]

ОК,вот сама задача:

z:=(2*sqr(y)+sin(x))/(sqrt(x*x*x+5*(sqr(x))+1));
Составить программу расчёта значений функций двух переменных z=f(x,y) с использованием оператора цикла.(Внешний:repeat,внутренний:while)
Значения переменной x и y изменяются соответственно от x нач. до x кон. с шагом h(x) и от y нач. до y кон. с шагом h(y) и вводятся с клавиатуры.Вывести на экран таблицу значений x,y,z.

[dr.Jekill]

Я незнаю куда вставить надо repeat,подскажите пожайлуста.
Программа работате,но думаю без рипита она не верна...

Если не верна, значит не работает.
Отличие repeat от while:
- repeat Условие проверяется ПОСЛЕ выполнения действия
- while Условие проверяется ДО выполнения действия
З.Ы. MegaHandsome, не мешало бы поискать по форуму и заключайте код в тэги