using System;
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите координату x точки");
double x = int.Parse(Console.ReadLine());
Console.WriteLine("Введите координату y точки");
double y = int.Parse(Console.ReadLine());
Console.WriteLine("Введите радиус");
double r = int.Parse(Console.ReadLine());
double d = Math.Sqrt(Math.Pow(-x, 2) + Math.Pow(-y, 2));
Console.WriteLine(d);
if (d < r){
Console.WriteLine("Да");}
else if (d == r){
Console.WriteLine("На границе");}
else{
Console.WriteLine("Нет");}
Console.ReadKey();
}
}
uses crt;
var A,B,C,D: integer;
check: char;
begin
while True do begin
write('Введите число: '); readln(A);
B := A mod 2;
if B = 0 then writeln('число чётное')
else writeln('число нечётное');
write('Хотите продолжить? (y/n): '); readln(check);
if check <> 'y' then break;
end;
end.