Program exemploWhile; Visual G

Program exemploWhile;

var

altura, altmaior:real;

nome, nomemaior:string;

cont: integer;

begin

cont:=0;

altmaior :=0;

nomemaior := ' ';

while (upcase(nome) <> ' fim ' ) do

begin

writeln(' informe o nome ');

readln(nome);

if(upcase(nome) = 'fim') then

begin

writeln ( 'numero de moças inscritas no concurso:', cont);

writeln ('nome da moça mais alta:', nomemaior);

writeln(' altura da moça mais alta:', altmaior);

end

else

begin

writeln('informe a altua :' );

readln( altura);

cont := cont +1 ;

if( altura > altmaior) then

begin

altmaior:= altura;

nomemaior:= nome;

end;

end;

end;

End.