{***************************************************************************}
{        Copyright (c) 2014 Александр Фомин (www.vk.com/serjant372)         }
{***************************************************************************}

unit Vika; {Объявляем имя модуля}

interface
Function CircuitRad(r:real):real; {Длинна окружности через радиус}

Function CircuitDia(d:real):real;  {Длинна окружности через диаметр}

Function SqCircleRad(r:real):real;  {Площадь круга через радиус}

Function SqCircleDia(d:real):real;  {Площадь круга через диаметр}

Function StartCoordinates(x:real; y:real):real;

implementation

Function CircuitRad(r:real):real; {Длинна окружности через радиус}
Begin
CircuitRad:=2*Pi*R;
end;

Function CircuitDia(d:real):real;  {Длинна окружности через диаметр}
Begin
CircuitDia:=Pi*D;
end;

Function SqCircleRad(r:real):real;  {Площадь круга через радиус}
Begin
SqCircleRad:=Pi*Sqr(R);
end;

Function SqCircleDia(d:real):real;  {Площадь круга через диаметр}
Begin
SqCircleDia:=(Pi*Sqr(D))/4;
end;

Function StartCoordinates(x:real; y:real):real;
Begin
StartCoordinates:=Sqrt(Sqr(X)+Sqr(Y));
end;

Begin
{ код инициализации }
end.