veiculos.pas

program veiculo;

type
  Tveiculo = record
    placa: string[7];
    ano: integer;
    motor: string[20];
    chassi: string[18];
    cor: string[15];
    montadora: string[30];
  end;

  Tlistaveiculos = array[1..100] of Tveiculo;

var
  listaveiculos: Tlistaveiculos;
  // ou tbm pode declarar assim: listaveiculo: array[1..100] of Tveiculo; (mas nao recomendado)
  cont, i, qtde: integer;

begin
  cont := 1;
  writeln('Informe a placa');
  readln(listaveiculos[cont].placa);
  while (upcase(listaveiculos[cont].placa) <> 'FIM') do
  begin
    writeln('Ano');
    readln(listaveiculos[cont].ano);
    writeln('Motor');
    readln(listaveiculos[cont].motor);
    writeln('Chassi');
    readln(listaveiculos[cont].chassi);
    writeln('Cor');
    readln(listaveiculos[cont].cor);
    writeln('Montadora');
    readln(listaveiculos[cont].montadora);
    Inc(cont);
    writeln('Informe a placa');
    readln(listaveiculos[cont].placa);
  end;
  writeln('Quantidade de veiculos = ', cont - 1);

  qtde := 0;
  for i := 1 to cont - 1 do
    if (2020 - listaveiculos[i].ano > 10) then
      Inc(qtde);

  writeln('Quantidade de veiculos com mais de 10 anos = ', qtde);

  qtde := 0;
  for i := 1 to cont - 1 do
    if (2020 - listaveiculos[i].ano > 20) then
      Inc(qtde);

  writeln('Quantidade de veiculos com mais de 20 anos = ', qtde);

  qtde := 0;
  for i := 1 to cont - 1 do
    if (2020 - listaveiculos[i].ano < 5) then
      Inc(qtde);

  writeln('Percentual de veiculos com menos de 5 anos = ', (qtde / (cont - 1)) * 100: 2: 2);

  qtde := 0;
  for i := 1 to cont - 1 do
    if (listaveiculos[i].motor = '1.0') and (listaveiculos[i].ano > 2000) and
      (upcase(listaveiculos[i].cor) = 'Branca') then
      Inc(qtde);

  writeln('Percentual de veiculos com motor 1.0, cujo o ano seja superior a 2000 e a cor seja branca = ',
    (qtde / (cont - 1)) * 100: 2: 2);

  qtde := 0;

  readln;
end.