diff --git a/categorias/iniciante.md b/categorias/iniciante.md
index fad65704..045c83e5 100644
--- a/categorias/iniciante.md
+++ b/categorias/iniciante.md
@@ -2,7 +2,7 @@
 
   - [ ] [1478](https://www.urionlinejudge.com.br/judge/pt/problems/view/1478) - Matriz Quadrada II
   - [X] [1541](https://www.urionlinejudge.com.br/judge/pt/problems/view/1541) - Construindo Casas
-  - [ ] [1789](https://www.urionlinejudge.com.br/judge/pt/problems/view/1789) - A Corrida de Lesmas
+  - [X] [1789](https://www.urionlinejudge.com.br/judge/pt/problems/view/1789) - A Corrida de Lesmas
   - [ ] [1827](https://www.urionlinejudge.com.br/judge/pt/problems/view/1827) - Matriz Quadrada IV
   - [ ] [1837](https://www.urionlinejudge.com.br/judge/pt/problems/view/1837) - Prefácio
   - [ ] [1848](https://www.urionlinejudge.com.br/judge/pt/problems/view/1848) - Corvo Contador
diff --git a/src/1701-1800/1789.poti b/src/1701-1800/1789.poti
new file mode 100644
index 00000000..8421e921
--- /dev/null
+++ b/src/1701-1800/1789.poti
@@ -0,0 +1,14 @@
+var n := leia_texto
+
+enquanto n <> None.orNull faça
+    var velocidades := leia_inteiros(" ")
+    var maior_velocidade := velocidades.injete(0)((a, b) => se a > b então a senão b fim)
+
+    escolha maior_velocidade
+        caso velocidade se velocidade < 10 => escreva "{1}"
+        caso velocidade se velocidade < 20 => escreva "{2}"
+        caso _ => escreva "{3}"
+    fim
+
+    n := leia_texto
+fim
\ No newline at end of file