O comando textcolor muda a cor do texto na tela. A sintaxe dele e: textcolor (cor).Exemplo:program cordotexto;Begintextcolor (red);write ('Ola Mundo!');End. Exercicio 1Exercicio 2Exercicio 3 Programa que recebe 10 numeros e testa qual e o maior:Program testanumeros ;var n1,n2,n3,n4,n5,n6,n7,n8,n9,n10: integer; Begin writeln ('Digite o numero 1: '); read (n1); writeln ('Digite o numero 2: '); read (n2); writeln ('Digite o numero 3: '); read (n3); writeln ('Digite o numero 4: '); read (n4); writeln ('Digite o numero 5: '); read (n5); writeln ('Digite o numero 6: '); read (n6); writeln ('Digite o numero 7: '); read (n7); writeln ('Digite o numero 8: '); read (n8); writeln ('Digite o numero 9: '); read (n9); writeln ('Digite o numero 10: '); read (n10); if ((n1>n2) and (n1>n3) and (n1>n4) and (n1>n5) and (n1>n6) and (n1>n7) and (n1>n8) and (n1>n9) and (n1>n10)) then writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles e ',n1) else if ((n2>n1) and (n2>n3) and (n2>n4) and (n2>n5) and (n2>n6) and (n2>n7) and (n2>n8) and (n2>n9) and (n2>n10)) then writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles e ',n2) else if ((n3>n1) and (n3>n2) and (n3>n4) and (n3>n5) and (n3>n6) and (n3>n7) and (n3>n8) and (n3>n9) and (n3>n10)) then writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles e ',n3) else if ((n4>n1) and (n4>n2) and (n4>n3) and (n4>n5) and (n4>n6) and (n4>n7) and (n4>n8) and (n4>n9) and (n4>n10)) then writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles e ',n4) else if ((n5>n1) and (n5>n3) and (n5>n4) and (n5>n2) and (n5>n6) and (n5>n7) and (n5>n8) and (n5>n9) and (n5>n10)) then writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles e ',n5) else if ((n6>n1) and (n6>n3) and (n6>n4) and (n6>n5) and (n6>n2) and (n6>n7) and (n6>n8) and (n6>n9) and (n6>n10)) then writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles e ',n6) else if ((n7>n1) and (n7>n3) and (n7>n4) and (n7>n5) and (n7>n6) and (n7>n2) and (n7>n8) and (n7>n9) and (n7>n10)) then writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles e ',n7) else if ((n8>n1) and (n8>n3) and (n8>n4) and (n8>n5) and (n8>n6) and (n8>n7) and (n8>n2) and (n8>n9) and (n8>n10)) then writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles e ',n8) else if ((n9>n1) and (n9>n3) and (n9>n4) and (n9>n5) and (n9>n6) and (n9>n7) and (n9>n8) and (n9>n2) and (n9>n10)) then writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles e ',n9) else if ((n10>n1) and (n10>n3) and (n10>n4) and (n10>n5) and (n10>n6) and (n10>n7) and (n10>n8) and (n10>n9) and (n10>n2)) then writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles e ',n10); End. O IF e uma estrutura de controle que introduz um desvio condicional, ou seja, um desvio na execucao natural do programa. Caso a condicao dada pela expressao seja satisfeita, entao serao executadas as instrucoes do bloco de comandos. Caso a condicao nao seja satisfeita, o bloco de comandos sera simplesmente ignorado. O comando IF pode ser lido como SE (expressao) ENTAO {comandos}.ELSE e utilizado para indicar um novo bloco de comandos delimitados