Узнать принадлежит ли точка x,y кольцу с наружным радиусом r1 и

Program a;
var r1, r2, x, y: integer;
begin
    writeln('Введи r1 и r2');
    readln(r1, r2);
    writeln('Введи x и y');
    readln(x, y);
    if ((x*x + y*y gt;= r2*r2) and (x*x + y*y lt;= r1*r1)) then
        writeln('Принадлежит')
    else writeln('Не принадлежит');
end.