Помогите с исправлении программы на Паскале

[Misapapa]

Здравствуйте, помогите, пожалуйста переделать программу данную программу
Program Lab10a;
Var
x,y,xn,xk,dx:real;
Begin
writeln('Введи xn,xk,dx');
read(xn,xk,dx);
x:=xn;
while x<=xk do
begin
y:=exp(x);
writeln('при x=',x:10:3,' y=',y:10:3);
x:=x+dx;
end;
End.
Переделать ее нужно так:
1. Исправить программу так, чтобы она решала задачу с использованием оператора цикла с постусловием.
2. Исправить программу так, чтобы она решала задачу с использованием оператора безусловного перехода.

Буду очень благодарен, если поможете переделать по обоим пунктам

[Л.И.С.]

Ну касаемо постусловия:
вот этот цикл

while x<=xk do
begin
y:=exp(x);
writeln('при x=',x:10:3,' y=',y:10:3);
x:=x+dx;
end;

нужно заменить на этот

repeat
y:=exp(x);
writeln('при x=',x:10:3,' y=',y:10:3);
x:=x+dx;
until x>xk;

[Л.И.С.]

С безусловным переходом мало знаком, но по-моему так:

Program Lab10a;
Var
x,y,xn,xk,dx:real;
label m; //Добавляем меточку
Begin
writeln('Введи xn,xk,dx');
read(xn,xk,dx);
x:=xn;
m:; //Ставим меточку
y:=exp(x);
writeln('при x=',x:10:3,' y=',y:10:3);
x:=x+dx;
if x>xk then halt; //Написал чтобы не было плохо от вида безконечности
goto m; //И спешим к ней!
End.

[Л.И.С.]

Какой курс?