program z1;

type 
	point = record
		x, y: real;
	end;

const
	a = 3.2;
	b = 4.1;
	r = 2;

function proverka (p: point): boolean;
begin
	proverka:=false;
	if sqr(p.x-a)+sqr(p.y-b)<sqr(r) then
		proverka:=true;
end;

var
	p, f: point;
	n: integer;

begin
	writeln('Vvedtie koorinaty tochki p:');
	readln(p.x, p.y);
	writeln('Vvedtie koorinaty tochki f:');
	readln(f.x, f.y);
	n:=0;
	if proverka(p)=true then n:=n+1;
	if proverka(f)=true then n:=n+1;
	writeln('Kolichestvo tochek = ', n);
	readln
end.