Здравствуйте. Помогите написать программу для вот такой задачи, уравнения я…

Попробуй как-то так: program Lloyd; var a, b,x, y: real; i, n: integer; beginwriteln ('введите количество элементов цикла n='); readln (n); writeln ('введите a'); readln (a); writeln ('Введите b'); readln (b); writeln ('Введите x'); readln (x); y: =1; For i: =1 to n do y: =arctan (b*x) /1+sqrt (a*x); writeln ('y=',y: 7:3); end.