введите два числа х у если второе число не равно нулю

Var x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if y = 0 then Write('Ошибка: на ноль разделять нельзя!')
else Write(x,'/',y,' = ',x/y)
End.



Примеры работы программки:

x = 1
y = 3
1/3 = 0.333333333333333

x = 9
y = 0
Ошибка: на ноль делить нельзя!