string s
int n, p1, p2
// p1 e p2 são os pontos onde quebraremos a string.

leia s
n <- tamanho(s)

p1 <- n/3
p2 <- n-p1

mostre substring (s, 0, p1-1)
mostre substring (s, p1, p2-1)
mostre substring (s, p2, n-1)