4_36

algoritmo "semnome"
var
   f:real
   x, y, z, t:inteiro
inicio
      t <- 1
      x <- 1
      y <- 6
      z <- 3
      enquanto (x <= 100) faca
               enquanto (y <= 30) faca
                        enquanto (z <= 15) faca
                        f <- (x*x)+(y*y)+(z*z)
                        f <- f/(exp(x, 4)*exp(y, 4)*exp(z, 4))
                        escreval(f)
                        z <- z + 2
                        fimenquanto
                        y <- y + 3
               fimenquanto
      t <- t + 1
      x <- t * t
      fimenquanto
fimalgoritmo