Algoritmo Leia 3 Números e Exiba a Soma dos Quadrados

Leia três números e apresente como valor final o resultado da soma dos quadrados dos três números lidos

Pseudocódigo:

programa exercicio12
var
   n1,n2,n3,soma : inteiro;
inicio
   leia n1;
   leia n2;
   leia n3;
   leia n4;
   soma ← (n1 ^ 2) + (n2 ^ 2) + (n3 ^ 2);
 escreva soma;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 28/12/2013
Program exercicio12; 
 uses crt;
 var
 n1, n2, n3, soma : integer; 
 Begin
 writeln('Insira um numero');
 readln(n1);
 writeln('Insira um numero');
 readln(n2);
 writeln('Insira um numero');
 readln(n3);
 soma := sqr(n1) + sqr(n2) + sqr(n3);
 writeln('A soma dos numeros ao quadrado = ', soma); 
 writeln('Pressione para fechar');
 readkey;  
End.

Nota: