Alg1 - 3ªlista. 5 - Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do segundo.

algoritmo "Área do Círculo"
// Função :
// Autor :
// Data : 20/9/2010
// Seção de Declarações
var
r,a:real
inicio
// Seção de Comandos
escreva("Entre com o raio do círculo ")
leia(r)

se(r>=0) entao
a<-3*(r^2)
escreva("A área do círculo é: ",a)

senao
escreva("O raio dado é inválido")
fimse
fimalgoritmo