В=x2+корень из y+345+a как составить программу Pascal на компьютере для решения этого выражения

program equationSolver; var x, y, a: Real; B: Real; begin Writeln('Введите значение x:'); Readln(x); Writeln('Введите значение y:'); Readln(y); Writeln('Введите значение a:'); Readln(a); B := x*x + sqrt(y) + 345 + a; Writeln('Значение B равно: ', B:0:2); end.