Program Test; uses crt, Vika;

var r,x,y,c,s,l:real;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Write(' Введите радиус:  '); Readln(R);
Write(' Введите точку X: '); Readln(X);
Write(' Введите точку Y: '); Readln(Y);

C:=CircuitRad(R);
S:=SqCircleRad(R);
L:=StartCoordinates(X,Y);

Write('--------------------------------------------------------------------------------');
Writeln(' Длина окружности: ',C:6:2);
Writeln(' Площадь круга: ',S:6:2);
Writeln(' Расстояние от точки до начала координат: ',L:6:2);
Write('--------------------------------------------------------------------------------');
Write('                Для выхода из программы нажмите клавишу "Enter"                 ');
Write('--------------------------------------------------------------------------------');
Readln;
end.