{
    Dada una figura, determinar que un punto ingresado por el usuario
    se encuentra dentro de ella, sobre su borde o afuera.

    a) Círculo de radio 1 centrada en (0, 0)
    b) Cuadrado de lado 2 centrado en (0, 0)
    c) Triángulo de vértices (-1, 0), (1, 0) y (0, 1)
}

program posicion;

var
    x, y: Real;
    opcion: Char;

begin
    writeln('Ingrese coordenada del punto:');
    write('x = ');
    readln(x);
    write('y = ');
    readln(y);
    writeln('Seleccione figura:');
    writeln('  a) Círculo de radio 1 centrado en (0, 0)');
    writeln('  b) Cuadrado de lado 2 centrado en (0, 0)');
    writeln('  c) Triángulo de vértices (-1, 0), (1, 0) y (0, 1)');
    readln(opcion);

    case opcion of
        'a':
        begin
            if abs(sqr(x) + sqr(y) - 1) < 0.001 then
                writeln('La coordenada se encuentra en el borde')
            else if sqr(x) + sqr(y) < 1 then
                writeln('La coordenada se encuentra dentro de la circunferencia')
            else
                writeln('La coordenada se encuentra fuera de la circunferencia');
        end;
        'b':
        begin
{
            if ((x = 1) and (y <= 1) and (y >= -1)) or ((x = -1) and (y <= 1) and (y >= -1)) or
                    ((y = 1) and (x <= 1) and (x >= -1)) or ((y = -1) and (x <= 1) and (x >= -1)) then
}
            // if ((abs(x) = 1) and (abs(y) <= 1)) or ((abs(y) = 1) and (abs(x) <= 1)) then
            if (abs(x) > 1) or (abs(y) > 1) then
                writeln('La coordenada se encuentra afuera del cuadrado')
            else if (abs(x) < 1) and (abs(y) < 1) then
                writeln('La coordenada se encuentra dentro del cuadrado')
            else
                writeln('La coordenada se encuentra en el borde')
        end;
        'c':
        begin
            if ((y = 0) and (abs(x) <= 1)) or
                    (((y = 1 + x) or (y = 1 - x)) and (y >= 0) and (y <= 1)) then
                writeln('La coordenada se encuentra en el borde')
            else if (y > 0) and (y < 1 + x) and (y < 1 - x) then
                writeln('La coordenada se encuentra dentro del triángulo')
            else
                writeln('La coordenada se encuentra afuera del triángulo')
        end
    else
        writeln('Opción no reconocida');
    end;
end.