Лаб3 - записать цикл for и repeat

[DiemonStar]

var 
    X, Y :  Real;
begin
  X := 2;
  repeat
    Y :=  sqr(ln(sqr(X)+1)) + X;
    {выводить переменные нужно здесь}
    X := X + 0.5; 
  until X > 6;
end.