Составить программу решения уравнения. z=y/x-1

Var  z,y,x:real;beginwriteln('Введите значение y: ');readln(y);writeln('Введите значение x: ');readln(x);z:=y/x-1;writeln('z = ',z);end.