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('На окружности') (имеется ввиду на линии окружности)
Параметр объекта<span> - признак, характеризующий свойства объекта.
Например:размер, цвет, вкус и т.д.</span>
{
Периметр треугольника вычисляется по формуле P = a + b + c
где a, b, c - длины сторон треугольника
}
Program Perimetr;
var P, a,b,c:integer;
Begin
writeln('Введите длины сторон треугольника ');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
P:= a+b+c;
writeln('Периметр треугольника = ', P);
end.