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.