Algoritmo

// Exercicio da Aula 06 - 11/09/2013

{ Este programa auxilia uma empresa de Recrutamento e Selecao, a selecionar Comissarias de bordo. Os criterios para a selecao sao:

a) Ser do Sexo Feminino (F) b) Ter Altura superior a 1.70 metros c) Ter Peso menor que 60 Kg. d) Possuir Curso Superior, ou caso nao possua ter Proficiencia em 3 ou mais Idiomas.

Se a candidata for selecionada sera mostrada a mensagem: "Voce foi selecionada para entrevista.", caso contrario sera mostrada a mensagem: "Voce, nao atendeu todos os requisitos, Obrigado pela participacao."

Cada candidato tem um Ficha de Selecao Numerada.

O programa deve ser encerrado quando o Numero da Ficha de Selecao de candidato for Igual a Zero (isto ?, nao tem mais fichas para processar)
}

Program Seleciona_Comissarias_de_Bordo;
Uses CRT;

Var Sexo_Cand, CursoSup_Cand : Char; Altura_Cand, Peso_Cand : Real; Idiomas_Cand : Byte; Num_Ficha : Word; Atende_Criterios : Boolean;

Begin ClrScr; Writeln; Writeln('AEROAZULAO - >'); Writeln; Writeln('Informe Numero da Ficha da Candidata [0=FIM]'); Readln(Num_Ficha);

While (Num_Ficha 0) Do // While [1] Begin Writeln('Informe os seguintes Dados do Candidato :'); Writeln; Writeln('Sexo [F ou M]:'); Readln(Sexo_Cand); Sexo_Cand := UPCASE(Sexo_Cand);

While (Sexo_Cand 'F') and (Sexo_Cand 'M') do // While [2] Begin Writeln; Writeln('Digite Sexo corretamente - F ou M'); Writeln; Readln(Sexo_Cand); Sexo_Cand := UPCASE(Sexo_Cand); End; // Fim do While [2]

Sexo_Cand := UPCASE(Sexo_Cand); Writeln('Altura (em metros):'); Readln(Altura_Cand);

While (Altura_Cand 1.70) and (Peso_Cand <