Составьте программу для вычисления выражений a=(44z+x)/(y3-5) и b=x2(y2-2)+(корень из3+z)/8 20 б

Vart,r,x,z,y: real;beginwriteln('введите x,y,z');readln(x,y,z);if (y*3-5)<>0 thenbeginr:=(44*z+x)/(y*3-5);writeln('1 = ',r);endelse writeln('знаменатель равен 0');if (3+z)>=0 thenbegint:=x*2*(y*2-2)+(sqrt(3+z))/8;writeln('2 = ',t);endelse writeln('подкоренное выражение отрицательно');end.