Solução em Pascal do Problema 1

program CalculaQuadrado;
var
  numero: integer;        /* usada para leitura da sequencia    */
  quadrado: integer;      /* guardara o quadrado do numero lido */
begin
  writeln('');
  writeln('       Calculo dos quadrados de uma sequencia de numeros');
  writeln('');
  write('Entre com uma sequencia de numeros inteiros nao-nulos, seguida por 0: ');
  read(numero);
  while (numero <> 0) do
  begin
    quadrado:= numero * numero;
    writeln('O quadrado do numero ', numero, ': ',quadrado);
    read(numero)
  end
end.