Для введённой последовательности точек (ввод закончить, если введена точка с координатами (0,0)) определите, сколько точек, отличных от нуля, было введено и сколько из них попало в круг с радиусом r с центром в начале координат — Pascal(Паскаль)

function Rasst(x,y:real):real;
begin
Rasst:=sqrt(x*x+y*y);
end;

var
x,y,r:real;
n,k:integer;
begin
k:=0;n:=0; r:=12;
repeat
readln(x,y);
if(x<>0)and(y<>0) then n:=n+1;
if Rasst(x,y)<=r then k:=k+1;
until(x=0)and(y=0);
writeln('Vvedeno ', n);
writeln('Vsego tochek ',k);
end.