Расписать в паскале: на плоскости расположена окружность r в центре с началом координат.определить положение точки x с координатами (a,b) относительно окружности (лежит ли точка внутри окружности на окружности или вне ее) если можно полностью

Program center;
var a,b,r:Integer;
begin
  read(a,b,r);
  if ((a*a+b*b) < r) then write('Лежит');
if ((a*a+b*b) > r) then write('Не лежит');
if ((a*a+b*b) = r) then write('Лежит на окружности'); 
end.