int r, n, z, x

r <- 0
z <- 0
n <- 0

leia x
enquanto (x != 0):
    r <- r + 1
    if (x = round(x)):
        z <- z + 1
        se (x >= 0):
            n <- n + 1
    leia x

mostre r, "reais"
mostre z, "inteiros"
mostre n, "naturais"