¿Cómo hacer ovnis en lenguaje pascal gratis? ¡Ayuda urgente! Gracias 1 ¡Gracias Dios, puedes ayudarme!

Preguntas de respuesta corta, si no entiendes, pregúntame de nuevo si no entiendes. var i, j, k, l, l1, m, n: longint; ; empezar readln(s); leer(s1); l:=longitud(s); l1:=longitud(s1); m*(ord(s[i]) -64))mod 47; para i：=1 a l1 hacer n：=(n*(ord(s1[i])-64))mod 47; 47)=(n mod 47) luego comience writeln('GO'); write('r1=r2=', n mod 47; de lo contrario comience writeln('STAY'); mod 47,' ', 'r2=' , n mod 47); fin; ! !