[Resolvido] Achar o ponde de origem?

*Achar o ponto de origem?" ¬¬'

eae galera, queria ajuda para conseguir encontrar o ponto mais proximo de zero, ajuda?

-->Faça a leitura de 10 pares de valores inteiros (x, y), os quais representam diferentes

coordenadas em um plano cartesiano. A cada leitura, mostre:

a. O quadrante ao qual pertence o ponto, ou se o ponto está sobre um dos eixos

cartesianos;

b. A distância do ponto para a origem, conforme a fórmula:

c. Ao final, mostrar o par de valores informado que mais se aproximou da origem.

algoritmo "3"

var

x,y,i,m,m2: inteiro

d: real

inicio

// Seção de Comandos

para i de 1 ate 10 faca

escreva ("Digite o ponto x: ")

leia (x)

escreva ("Digite o ponto y: ")

leia (y)

escreval ("----------------------------------")

se ((x>0) E (y>0)) entao

escreval("O ponto (x,y) está no 1o quadrante")

senao

se ((x<0) E (y>0)) entao

escreval("O ponto (x,y) está no 2o quadrante")

senao

se ((x<0) E (y<0)) entao

escreval("O ponto (x,y) está no 3o quadrante")

senao

se ((x>0) E (y<0)) entao

escreval("O ponto (x,y) está no 4o quadrante")

senao

se ((x = 0) E (y <> 0)) entao

escreval("O ponto (x,y) está sobre o eixo Y")

senao

se ((x <> 0) E (y = 0)) entao

escreval("O ponto (x,y) está sobre o eixo X")

senao

escreval("O ponto (x,y) é o ponto origem!")

fimse

fimse

fimse

fimse

fimse

fimse

escreval ("----------------------------------")

d <- RaizQ(x^2+y^2)

escreval ("A distancia eh: ", d)

escreval ("----------------------------------")

fimpara

se ((x<y) E (y >x)) entao

m <- x

fimse

se ((y<x) E (x>y)) entao

m2 <- y

fimse

escreval ("Mais proximo do ponto de origem", m , m2)

fimalgoritmo