расписать в паскале: На плоскости расположена окружность R в центре с началом координат.Определить положение точки X с координатами (A,B) относительно окружности (лежит ли точка внутри окружности на окружности или вне ее) Если можно полностью

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