program cubo;{Declaracoes} beginpfrente(150);pdireita(90);pfrente(150);pdireita(90);pfrente(150);pdireita(90);pfrente(150);pdireita(45);pfrente(40);pdireita(45);pfrente(150);pdireita(90);pfrente(150);pdireita(90);pfrente(150);pdireita(90);pfrente(150);pdireita(180);un;pfrente(150);pdireita(45);ul;pfrente(40);pesquerda(135);un;pfrente(150);pesquerda(45);ul;pfrente(40);un;pesquerda(45);pfrente(150);pesquerda(135);ul;pfrente(40);dr; end. program poligonoregularqualquer;var n:integer;{numero de lados} l:integer;{tamanho do lado} Sai:real;{soma dos angulos internos} ai:real;{angulo interno} a:real;{angulo suplementar ao angulo interno} i: integer; {contador de repeticao}begin writeln('digite o numero de lados n do poligono'); readln(n); writeln('digite o tamanho l dos lados'); readln(l); Sai:= 180*(n-2); ai:= Sai/n; a:= 180-ai; i:= 1; while i<= n do begin i:= i+1; pdireita(a); pfrente(l); end; end. program pesquisaaudiencia;varc4tvs:integer;{quantidade de tvs ligadas no canal 4}c12tvs:integer;{quantidade de tvs ligadas no canal 12}c71tvs:integer; {quantidade de tvs ligadas no canal 71}c33tvs:integer; {quantidade de tvs ligadas no canal 33}c4pessoas:integer;{quantidade de pessoas assistindo o canal 4}c12pessoas:integer;{quantidade de pessoas assistindo o canal 12}c71pessoas:integer;{quantidade de pessoas assistindo o canal 71}c33pessoas:integer; {quantidade de pessoas assistindo o canal 33}canaltv: integer; {canal assistido no local}pessoas:integer; {numero de pessoas assistindo tv no local}Somatvs:integer;{soma das tvs ligadas no canal 4 e canal 12}Somapessoas:integer;{soma das pessoas assistindo canal 4 e canal 12}Porcpessoasc4, Porctvsc4, Porcpessoasc12, Porctvsc12, Porcpessoasc33, Porctvsc33, Porcpessoasc71, Porctvsc71 : real; {porcentagens canal 4,12,33,71}beginc4tvs:= 0; {quantidade de tvs ligadas no canal 4}c12tvs:= 0; {quantidade de tvs ligadas no canal 12}c71tvs:=0; {quantidade de tvs ligadas no canal 71}c33tvs:=0; {quantidade de tvs ligadas no canal 33}c4pessoas:= 0; {quantidade de pessoas assistindo o canal 4}c12pessoas:= 0; {quantidade de pessoas assistindo o canal 12}c71pessoas:=0; {quantidade de pessoas assistindo o canal 71}c33pessoas:=0; {quantidade de pessoas assistindo o canal 33}write ('forneca o numero do canal');readln(canaltv); {obtem o canal} while (canaltv <> 0) dobeginwrite ('forneca o numero de pessoas assistindo o canal');readln(pessoas);{obtem o numero de pessoas que assistem o canal}if (canaltv = 4) {e canal 4?}then beginc4tvs:=c4tvs+1; {acumula tvs canal 4}c4pessoas:=c4pessoas+pessoas;{acumula pessoas canal 4}endelsebegin if (canaltv=12) {e canal 12?}thenbeginc12tvs:=c12tvs+1; {acumula tvs canal 12}c12pessoas:=c12pessoas+pessoas;{acumula pessoas canal 12}endelsebeginif (canaltv=71) {e canal 71?}thenbeginc71tvs:=c71tvs +1;c71pessoas:=c71pessoas + pessoas;endelsebeginif (canaltv=33){e canal 33?}thenbeginc33tvs:=c33tvs +1;c33pessoas:=c33pessoas +pessoas;endelsebeginwriteln('Os canais da pesquisa sao 4,12,71 e 33'); {Se nao for algum dos canais em questao}endendendend;writeln('forneca outro numero do canal(0 para encerrar)');readln(canaltv); {obtem outro canal}end;{Calcula as porcentagens}if ((c4tvs=0) and (c12tvs=0) and (c71tvs=0) and (c33tvs=0)) or ((c4pessoas=0) and (c12pessoas=0) and (c71pessoas=0) and (c33pessoas=0))thenbeginwriteln('Erro: nao faz divisao por zero');endelseif (canaltv = 4) or (canaltv = 12) or (canaltv = 71) or (canaltv =33) or (canaltv=0)thenbeginSomapessoas:= c4pessoas+c12pessoas+c71pessoas+c33pessoas;Somatvs:= c4tvs+c12tvs+c71tvs+c33tvs;Porcpessoasc4:= (c4pessoas/Somapessoas)*100;Porcpessoasc12:= (c12pessoas/Somapessoas)*100;Porcpessoasc71:=(c71pessoas/Somapessoas)*100;Porcpessoasc33:=(c33pessoas/Somapessoas)*100;Porctvsc4:= (c4tvs/Somatvs)*100;Porctvsc12:= (c12tvs/Somatvs)*100;Porctvsc71:=(c71tvs/Somatvs)*100;Porctvsc33:=(c33tvs/Somatvs)*100;{Mostra as porcentagens}writeln('% de tvs ligadas no canal 4',Porctvsc4);writeln('% de pessoas assistindo o canal 4',Porcpessoasc4);writeln('% de tvs ligadas no canal 12',Porctvsc12);writeln('% de pessoas assistindo o canal 12',Porcpessoasc12);writeln('% de tvs ligadas no canal 71',Porctvsc71);writeln('% de pessoas assistindo o canal 71',Porcpessoasc71);writeln('% de tvs ligadas no canal 33',Porctvsc33);writeln('% de pessoas assistindo o canal 33',Porcpessoasc33);endend. program notasampliado; var av1: real; av2: real; av3: real; notaTotal: real; begin writeln('Entre com a nota do aluno na avaliacao 1: '); readln(av1); while (av1<0) or (av1>30) do begin {repete enquanto as notas forem menores que 0 ou maiores que 30} writeln('Notas invalidas! Digite notas de 0 a 30!'); readln(av1); end; writeln('Entre com a nota do aluno na avaliacao 2: '); readln(av2); while (av2<0) or (av2>30) do begin {repete enquanto as notas forem menores que 0 ou maiores que 30} writeln('Notas invalidas! Digite notas de 0 a 30!'); readln(av2); end; writeln('Entre com a nota do aluno na avaliacao 3: '); readln(av3); while (av3<0) or (av3>40) do begin {repete enquanto as