Напишите программу, определяющую, лежит ли точка А (ха, уа) на окружности х2+у2=r2, на ней или под ней.

if (xa^2 + ya^2)>r^2 then writeln('Вне окружности')
if (xa^2 + ya^2)<r^2 then writeln('В окружности')
if (xa^2 + ya^2)=r^2 then writeln('На окружности') (имеется ввиду на линии окружности)