Заданы три точки с координатами a(x1y1),b(x2,y2), c(x1,y1) и круг с центром в начале координат и радиусом r. определить сколько точек принадлежат кругу pasca

//PascalABC.NET 3.2 сборка 1318

Var
  x1,y1,x2,y2,x3,y3,r,count:integer;
begin
read(x1,y1,x2,y2,x3,y3,r);
if sqr(x1)+sqr(y1)=sqr(r) then inc(count);
if sqr(x2)+sqr(y2)=sqr(r) then inc(count);
if sqr(x3)+sqr(y3)=sqr(r) then inc(count);
writeln(count);
end.

Пример ввода:
0 1 1 0 -1 0 1
Пример вывода:
3