Algoritmo: Resposta da prova I

Pessoal,

Segue abaixo uma possível solução para as questões da prova I.

O código está disponível em: http://www.4shared.com/file/LTsSVAWI/Algoritmos_Prova_I.html

Questão 1:
program pq1;
var rest, num,i: integer;
    result: array[1..10] of integer;
begin
 writeln('Digite o numero que deseja transformar em binario:');
 readln(num);

 i:=1;
 while (num <> 0) do
 begin
   rest:= num mod 2;
   num:= num div 2;
   result[i]:=rest;
   i:=i+1;
 end;
 for i:=10 downto 1 do
   write(result[i]);
  readln;
end.


Questão 2:

program pq2;
var frase: String;
    i: integer;
begin
    writeln('Digite uma frase:');
    readln(frase);

    writeln('A frase antes de criptografar era : ', frase);

    for i:=1 to length(frase) do
    begin
       if (frase[i]='a') or (frase[i]='A')  then
          frase[i]:='1';
       if (frase[i]='e') or (frase[i]='E') then
          frase[i]:='2';
       if (frase[i]='i') or (frase[i]='I') then
          frase[i]:='3';
       if (frase[i]='o') or (frase[i]='O') then
          frase[i]:='4';
       if (frase[i]='u') or (frase[i]='U')then
          frase[i]:='5';
    end;
    writeln('A frase depois de criptografar :', frase);
    readln;
end.


Questão 3:

program pq3;
var cont: integer;
    chico, toto: real;
begin
    chico:=1.5;
    toto:=1.1;
    cont:=0;
    while chico>=toto do
    begin
       chico:=chico+0.02;
       toto:=toto+0.03;
       cont:= cont+1;
    end;

    writeln('Toto precisara de ', cont, ' anos para que ele seja maior que Chico!');
    readln;

end.