Заданы координаты двух точек (x1;y1) и (x2;y2). Определить лежат ли они на одной окружности с центром в начале координат.- Pascal(Паскаль)

var
x1,y1,x2,y2:integer;
BEGIN
writeln('Введите координаты первой точки:');
write('x1=');  readln(x1);
write('y1=');  readln(y1);
writeln('Введите координаты второй точки:');
write('x2=');  readln(x2);
write('y2=');  readln(y2);
writeln;
if sqrt(sqr(x1)+sqr(y1))=sqrt(sqr(x2)+sqr(y2)) then
 writeln('Точки лежат на одной окружности')
 else writeln('Точки не лежат на одной окружности');
readln;
END.