Всем привет, мой предмет: Алгоритмы, структуры данных и программирование. , нужно выполнить это задание(прикрепляю фотографию). Вот код примера как это должно выглядеть:program helpplss;vara, b, c, k, r, x, y: real;beginwrite('y, k, x =? ');readln(y, k, x);if y <> 0 then a := sqr(sin((k - 5) / y))else a := 0;b := x + y;c := k - y;if (a <> 0) and (b >= 0) and (c >= 0) thenbeginif b > 0 then b := exp(ln(b) / 6);b := b + exp(4 * k + 1);c := 5. 6e8 * x + sqrt(c);r := (c - b) / a;writeln('r = ', r)endelse writeln('Значение выражения не определено')end. Прошу посчитайте, Я буду очень благодарен вам.