помогите,пожалуйста решить с циклом repeat и while

[Жаннулька]

z=ln(y-2)/ln2/sqrt(sin(X*Y)) пожалуйста

[type_Oleg]

Ну, если надо repeat

repeat
  z:=Ln(y-2)/Ln(2)/Sqrt(Sin(x*y));
until True;

[Жаннулька]

{программа вычисления функции z=log2(y-2)/sqrt(sin(x*y))}
var x, y, z: real;
c : integer;
begin
writeln('диалоговая программа вычисления функций');
writeln('z=log2(y-2)/sqrt(sin(x*y))');
writeln('при любых значениях x и y');
repeat
writeln('ввести через пробел значениях x и y');
readln (x,y);
if y-2<0 then
writeln('функция не определена, т. к. логарифм из неположительного числа не существует')
else
if sin (x*y)<0 then
writeln('функция не определена, т. к. квадратного корня из отрицательного не существует')
else
if sqrt(sin (x*y))=0 then
writeln('функция не определена, т. к. на нуль делить нельзя')
else
begin;
z:=ln(y-2)/ln(2)/sqrt(sin(x*y));
writeln ('z=',z:12:4);
end ;
write('для окончания работы ввести 0, а для продолжения 1');
readln (c);
until c=0
end.

[Жаннулька]

вот это надо написать упрощенно с помощью while , repeat
{программа вычисления функции z=log2(y-2)/sqrt(sin(x*y))}
var x, y, z: real;
c : integer;
begin
writeln('диалоговая программа вычисления функций');
writeln('z=log2(y-2)/sqrt(sin(x*y))');
writeln('при любых значениях x и y');
repeat
writeln('ввести через пробел значениях x и y');
readln (x,y);
if y-2<0 then
writeln('функция не определена, т. к. логарифм из неположительного числа не существует')
else
if sin (x*y)<0 then
writeln('функция не определена, т. к. квадратного корня из отрицательного не существует')
else
if sqrt(sin (x*y))=0 then
writeln('функция не определена, т. к. на нуль делить нельзя')
else
begin;
z:=ln(y-2)/ln(2)/sqrt(sin(x*y));
writeln ('z=',z:12:4);
end ;
write('для окончания работы ввести 0, а для продолжения 1');
readln (c);
until c=0
end.