Question

Всем привет, мой предмет: Алгоритмы, структуры данных и программирование , нужно выполнить это задание(прикрепляю фотографию).

Вот код примера как это должно выглядеть:
program melhi;
var
a, b, c, k, r, x, y: real;
begin
write('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) then
begin
if 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)
end
else writeln('Значение выражения не определено')
end.

, Я буду очень благодарен вам.