escreva um algoritmo para ler quatro números e somá-los, apenas se o primeiro número lido for divisível pelo quarto númeo lido. caso a soma não possa

O problema está na lógica do SE. N1/N4 não é uma operação lógica, mas, sim, matemática. Isso quer dizer que, da maneira como você está fazendo, esse SE N1/N4 nunca irá retornar um resultado lógico. Nesse caso, precisa perguntar se a divisão de N1 por N4 tem resto igual à zero (N1%N4=0). Outra coisa também é o ENTAO ( N1 + N2 + N3 + N4). Vocês não está atribuindo o resultado à uma variável e mostrando-a no ESCREVA(). 

Espero ter ajudado.

var N1,N2,N3,N4: REAL

inicio

// Seção de Comandos

ESCREVA ("DIGITE O N1 ")

LEIA (N1)

ESCREVA ("DIGITE O N2 ")

LEIA (N2)

ESCREVA ("DIGITE O N3 ")

LEIA (N3)

ESCREVA ("DIGITE O N4 ")

LEIA (N4)

SE N1/N4 ENTAO ( N1 + N2 + N3 + N4) SENAO

ESCREVA ("O PRIMEIRO NUMERO NÃO DIVIDE PELO QUARTO")

FIMSE

fimalgoritmo

onde estou errando ?