Задача с 3-мя условиями. Опции

[Артемий]

Помогите, пожалуйста, составить программу тремя способами для вычисления функции согласно заданным условиям: применение цикла со счетчиком, применение цикла с постусловием, и применение цикла с предусловием.

Sqrt(ax + 1) – sqr(a)/x если x => 6,1

Y= x – a если 3 <= x < 6,1

Sqrt(ax) + 2a если x < 3

[Артемий]

Вот делал по образцу, как надо. Не подскажите где ошибка конкретно в этом решении?ъ

Program p111;
Uses crt;
Var
Xn, Xk, X, Y, step, a:real;
k:integer;
begin 
clrscr;
writeln ('Введите Xn,Xk,step,a');
readln (Xn,Xk,step,a);
k:=trunc((Xk-Xn)/step)+1;
X:=Xn;
for i:=1 to k do begin
if X>=6.1 then y:=sqrt(ax + 1) – sqr(a)/x
else begin
if X>=3<6.1 then y:=x – a  
else y:=sqrt(ax) + 2a 
end;               
writeln(‘X=’,x:6:2,’Y=’,y:8:2);
X:=x+step;
end;
readln;
end.