У= ctg b + (ab+c)/(a-c) Помогите составить алгоритм линейной структуры, пожалуйста

Question

У= ctg b + (ab+c)/(a-c)
Помогите составить алгоритм линейной структуры, пожалуйста

Answer 1

Var y,a,b,c:real;

begin
readln(a,b,c);
y:= cos(b)/sin(b) + (a*b+c)/(a-c);
println(y);
end.