составить программу которая вычисляет значение z=x/y где y=sinx+0,5. в случае y=0 вывести на печать сообщения деление на 0

program zzz;var z,x,y: real;beginwriteln ('Введите x');readln (x);y:=sin(x)+0.5;z:=x/y;if y=0 then writeln ('Деление на ноль') elsewriteln ('z=',z);end.