введите два числа х у если второе число не равно нулю то первое число разделить на второе и выдать ответ иначе вывести сообщение на ноль делить нельзя

Var x,y:real;BeginWrite('x = ');ReadLn(x);Write('y = ');ReadLn(y);if y = 0 then Write('Ошибка: на ноль делить нельзя!')else Write(x,'/',y,' = ',x/y)End.Примеры работы программы:x = 1y = 31/3 = 0.333333333333333x = 9y = 0Ошибка: на ноль делить нельзя!