Carlos Gabriel Alves

@Simon Viegas Muito obrigado!!

Bom dia, estou com uma dúvida, pois a função de multiplicar o numero pela posição dele não está funcionando. Posição 2 é o resultado 2x2 = 4, 3 3x3=9 até o 10. A mensagem de erro já está correta Devo escrever uma função que receba um valor inteiro como parâmetro de entrada e imprima na tela n linhas conforme estrutura apresentada abaixo. Por exemplo, as seguintes linhas devem ser apresentadas ser o parâmetro de entrada for 10. NOTA: Caso seja inserido um valor menor ou igual a zero, uma crítica deverá ser exibida e o processo deverá ser abortado. Obs.: Sou novato em delphi Até o momento estou utilizando 2 for, da seguinte maneira: program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; var i,n,j:integer; begin write(output,'Entre com um número inteiro maior que 0: '); readln(input, n); if ( n<=0 ) then writeln('Erro:O número digitado não pode ser menor ou igual a 0...') else begin repeat for i:=1 to n do write(sqr(n),' '); writeln; n:=n-1; until(n=0); end; begin for i:=1 to n do write (sqr(n*j), ' '); writeln; n:=n; j:=j*j; end; readln(n); readln(n); end.