Algoritmo que exiba o resultado do número ao quadrado

Efetuar a leitura de um número inteiro e apresentar o resultado desse número quadrado

Pseudocódigo:

programa exercicio11
var
   numero, quadrado : inteiro;
inicio
   leia numero;
   quadrado ← numero ^ 2;
 escreva quadrado;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 28/12/2013
Program exercicio11; 
 uses crt;
 var
 numero, quadrado : integer; 
 Begin
 writeln('Insira um numero');
 readln(numero);
 quadrado := sqr(numero);  
 writeln('O numero ao quadrado = ', quadrado); 
 writeln('Pressione para fechar');
 readkey;  
End.

Nota: