Введите с клавиатуры целочисленные координаты точки на плоскости (x,y). Выведите '0'
, если точка совпадает с началом координат, '1', если точка лежит на координатных осях, и '2', если точка не лежит на координатных осях.
ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

var x,y:real;beginwriteln ('Введите координаты точки (x,y)');readln (x,y);if (x=0) and (y=0) then writeln ('0')else if (x=0) or (y=0) then writeln ('1')else writeln ('2');end.