Помогите с составление блок-схемы. Заранее спасибо.

var x,y,z:real;
begin
write('x y: '); readln(x,y); z:=sqrt(3*y)+x;
if z>14 then z.=exp(3*x*y) else if z=14 then z:=x/2 else z.=x+3*y;
writeln(z)
end.

Из условия задачи следует, что функция z зависит от двух переменных - x и y, и может принимать различные значения в зависимости от значений x и y и выполнения условия на √3y + x. Для решения данной задачи необходимо использовать условные операторы.

Блок-схема алгоритма для вычисления функции z:
Начало
Ввод x и y
Если √3y + x > 14, то
z = е3xy
Иначе, если √3y + x < 14, то
z = x+3y
Иначе,
z = 0.52x
Вывод z
Конец

Программа на языке Паскаль для вычисления функции z:
program calculate_z;
var x, y, z: real;
begin
writeln('Введите значения переменных X и Y:');
readln(x, y);
if sqrt(3*y + x) > 14 then
z := exp(3*x*y)
else if sqrt(3*y + x) < 14 then
z := x + 3*y
else
z := 0.52*x;
writeln('Значение функции Z равно ', z);
end.

Для проверки программы можно использовать любые три пары значений переменных X и Y и вычислить значение функции z для каждой из них, используя программу. Например, для X=2, Y=3, X=5, Y=1 и X=4, Y=4 результаты будут соответственно:

Введите значения переменных X и Y:
2 3
Значение функции Z равно 148.413162
Введите значения переменных X и Y:
5 1
Значение функции Z равно 8.000000
Введите значения переменных X и Y:
4 4
Значение функции Z равно 2.080000

Эти результаты можно сравнить с ожидаемыми значениями функции z, полученными вручную при заданных значениях переменных X и Y и выполнении условия на √3y + x.