program Lab1_1;

{$APPTYPE CONSOLE}

{$R .res}

uses
  System.SysUtils;
var
    r, x, y: Integer;
begin
    Writeln('Введите R: ');
    Readln(r);
    writeln('Введите X: ');
    readln(x);
    writeln('Введите Y: ');
    readln(y);
    If (r * r -x * x + y * y) then
        writeln('точка лежит на окружности')
    else
        writeln('точка не лежит на окружности');
    readln;
end.