Дана точка (x;y) и круг радиуса R с центром в точке (0;0). Определить, где находится точка: внутри, на границе, или за пределами круга — Pascal(Паскаль)

program tochka_case;
{(x1,y1) - koordinati tochki,
(x2,y2) - koordinati radiusa }
var
x1,y1,x2,y2,x3,y3,z:integer;
A,B: real;
begin
x3:=0;
y3:=0;
writeln ('vvedite x1: ');
readln (x1);
writeln ('vvedite y1: ');
readln (y1);
writeln ('vvedite x2: ');
readln (x2);
writeln ('vvedite y2: ');
readln (y2);
A:= sqrt(sqr(x1-x3)+sqr(y1-y3));
B:= sqrt(sqr(x2-x3)+sqr(y2-y3));
if A<B
then z:=1;
if A>B
then z:=2;
if A=B
then z:=3;
case z of
1: writeln ('tochka vnutri okrujnosti ');
2: writeln ('tochka za okrujnostyu ');
3: writeln ('tochka na okrujnosti ');
end;
end.