Uchiha

Toda vez que precisamos repetir determinado número de vezes uma determinada seqüência de comandos, usamos um laço de repetição, que corresponderia repetir o mesmo trecho um número X de vezes sem ter de escrever o mesmo trecho X vezes
Exemplo: Calcular a média de 50 alunos (sem repetição) program media_notas; var NOME: string; N1, N2, N3, MEDIA: real; begin {1º ALUNO} read(NOME,N1,N2,N3); if (N1>=0) and (N2>=0) and (N3>=0) and (N1<=10) and (N2<=10) and (N3<=10) then begin MEDIA :=(N1+N2+N3)/3; writeln( 'O aluno de nome ',NOME,' tem a média ',MEDIA,' em suas notas '); end else begin writeln('Não são aceites notas negativas '); end; {2º ALUNO} read(NOME,N1,N2,N3); if (N1>=0) and (N2>=0) and (N3>=0) and (N1<=10) and (N2<=10) and (N3<=10) then begin MEDIA :=(N1+N2+N3)/3; writeln( 'O aluno de nome ',NOME,' tem a média ',MEDIA', em suas notas '); end else begin writeln('Não são aceitas notas negativas '); end; {3º ALUNO}

{50º ALUNO} read(NOME,N1,N2,N3); if (N1>=0) and (N2>=0) and (N3>=0) and (N1<=10) and (N2<=10)