algoritmo metros quadrados

Pessoal, o professor falou que não precisava fazer essa questão, e eu tentei fazer juro, mas depois de tanto verificar, nem sei se tá certo.

tem como validarem para mim vê se minha lógica está correta? obrigado:

algoritmo "semnome"
// Função : 16) Suponha que você tenha uma casa e queira determinar a
//quantidade de metros quadrados de cada um dos 3 quartos, da sala, da
//cozinha, do banheiro e da garagem. Elabore um programa que seja capaz
//de fornecer todos esses dados e calcular ainda a quantidade de
//metros quadrados de toda a casa.
// Autor :
// Data : 3/4/2011
// Seção de Declarações
var
cquarto1,lquarto1, aquarto1, pquarto1:real
cquarto2,lquarto2, aquarto2, pquarto2:real
cquarto3,lquarto3, aquarto3, pquarto3:real
csala,lsala, asala, psala:real
ccozinha, lcozinha, acozinha, pcozinha:real
cbanheiro, lbanheiro,abanheiro, pbanheiro:real
cgaragem, lgaragem, agaragem, pgaragem:real
mqcasa:real
inicio
// Seção de Comandos
//quarto1
escreva("Digite o comprimento do quarto1: ")
leia(cquarto1)
escreva("Digite a largura do quarto1: ")
leia(lquarto1)
aquarto1<- lquarto1*lquarto1
pquarto1<- lquarto1*cquarto1
escreval("A area do quarto 1 é: ", pquarto1)
escreval("Os metros quadrados do quarto 1 é: ", aquarto1)
//quarto2
escreva("Digite o comprimento do quarto2: ")
leia(cquarto2)
escreva("Digite a largura do quarto2: ")
leia(lquarto2)
aquarto2<- lquarto2*lquarto2
pquarto2<- cquarto2*lquarto2
escreval("A area do quarto 2 é: ", pquarto2)
escreval("Os metros quadrados do quarto 2 é: ", aquarto2)
//quarto3
escreva("Digite o comprimento do quarto3: ")
leia(cquarto3)
escreva("Digite a largura do quarto3: ")
leia(lquarto3)
aquarto3<- lquarto3*lquarto3
pquarto3<- cquarto3*lquarto3
escreval("A area do quarto 3 é: ", pquarto3)
escreval("Os metros quadrados do quarto 3 é: ", aquarto3)
//sala
escreva("Digite o comprimento da sala: ")
leia(csala)
escreva("Digite a largura da sala: ")
leia(lsala)
asala<- lsala*lsala
psala<- csala*lsala
escreval("A area da sala é: ", psala)
escreval("Os metros quadrados da sala é: ", asala)
//cozinha
escreva("Digite o comprimento do cozinha: ")
leia(ccozinha)
escreva("Digite a largura do cozinha: ")
leia(lcozinha)
acozinha<- lcozinha*lcozinha
pcozinha<- ccozinha*lcozinha
escreval("A area da cozinha é: ", pcozinha)
escreval("Os metros quadrados da cozinha é: ", acozinha)
//banheiro
escreva("Digite o comprimento do banheiro: ")
leia(cbanheiro)
escreva("Digite a largura do banheiro: ")
leia(lbanheiro)
abanheiro<- lbanheiro*lbanheiro
pbanheiro<- cbanheiro*lbanheiro
escreval("A area da cozinha é: ", pbanheiro)
escreval("Os metros quadrados da cozinha é: ", abanheiro)
//garagem
escreva("Digite o comprimento do garagem: ")
leia(cgaragem)
escreva("Digite a largura do garagem: ")
leia(lgaragem)
agaragem<- lgaragem*lgaragem
pgaragem<- cgaragem*lgaragem
escreval("A area da cozinha é: ", pgaragem)
escreval("Os metros quadrados da cozinha é: ", agaragem)
//metros quadrados da casa
mqcasa<- aquarto1+aquarto2+aquarto3+asala+acozinha+abanheiro+agaragem
escreva("Os metros quadrados de toda casa é: ", mqcasa)
fimalgoritmo