По представленной блок-схеме составьте программу и получите результат. Помогите пожалуйста, дам 60баллов за решение, прошууууу​

Ответ:

var a,b,c,s,k,y:real;

begin

writeln('введите a :');

readln(a);

writeln('введите b :');

readln(b);

writeln('введите a :');

readln(c);

s := (sqrt(exp(ln(b) * 3))/c) - a*b*c;

k := 2*s*sqrt(abs(a*exp(ln(b) * 5) - c));

y := (s*k/(b*c)) + abs(a - b - c);

writeln('y = ', y);

end.