Program trabalho ;
const pi=3.14;
var i, escolha, idade, porcentagemidade, mulheres, conjuntodeb, conjuntodea : integer;
sexo: char;
raio, altura, maioraltura : real;
cabelo, olhos, sair : string;
conjuntoa : array [1..10] of integer;
conjuntob : array [1..10] of integer;

Begin
clrscr;
writeln('Digite Comecar ou Sair para sair: ');
readln(sair);
While (sair = 'comecar') do
begin
writeln('Digite o número correspondente a questão');
writeln('1 - Para fazer a questão de Seleção');
writeln('2 - Para fazer a questão de Repetição');
writeln('3 - Para fazer a questão de Variáveis Compostas');
readln(escolha);
case escolha of
1 : begin
writeln('Escolha um valor de Raio, para calcular o volume da esfera: ');
readln(raio);
writeln('O volume da esfera é: ',(4*pi*raio*raio*raio)/3:2:2);
end;
2 : begin
repeat
writeln('Digite a Idade ou -1 para sair do programa: ');
readln(idade);
writeln('Digite M para masculino e F para feminino: ');
readln(sexo);
writeln('Digite a Altura: ');
readln(altura);
writeln('Digite a cor a cor do cabelo: Castanho, Loiro, Preto, ou Ruivo');
readln(cabelo);
writeln('Digite a cor dos olhos: Preto, Azul, Verde ou Castanho');
readln(olhos);
if (altura > maioraltura) then
begin
maioraltura:=altura;
end;
if sexo = 'f' then
begin
mulheres:=mulheres + 1;
if (idade > 18) and (idade < 35) and (olhos = 'verdes') and (cabelo = 'loiro') then
begin
porcentagemidade:=porcentagemidade + 1;
end;
end;
until (idade = -1);

end;
3 : begin
for i:=1 to 10 do
writeln('Digigite um Conjunto de números A');
readln(conjuntoa[i]);
writeln('Digite um Conjunto de números B');
readln(conjuntob[i]);
conjuntodea:= conjuntoa[i];
conjuntodeb:= conjuntob[i];
end;
end;
for i:=1 to 10 do
begin
write(conjuntodea,conjuntodea);
end;
end;
End.