what is the output of murimuri()

1. function eukuridoR (x, y : integer) : integer; 2. begin if y=0 then eukurido := x else eukurido := eukurido (y, x%y); 3. 4. 5. 6. end; 7. function eukuridoL (x, y: integer) : integer; 8. begin while x y do begin if x>y then x := x - y 9. 10. 11. 12. else 13. y :=y -x; 14. end; 15. eukuridoL := x; 16. end; 17. function murimuri () : integer; 18. var gukguk : array [1..5] of integer = (360, 1200,108,12,4,2); i, z : integer; 19. 20. 21. begin z:=gukguk [1]l; for i:=2 to 5 do begin if i mod 2 = 1 then z := eukuridoL (z, gukguk [i]) 22. 23. 24. 25. 26. else 27. := eukuridoR (z, gukguk[i]); 28. end; murimuri := z; 29. 30. end;