Maquina do tempo

program maquinadotempo;
  Var N,X,i,a:integer;

  begin
  writeln('forneça o ano de nascimento da pessoa');
  readln(N);
  writeln('forneça o ano atual');
  readln(X);
  i:=(X-N);
  writeln('a idade da pessoa é',i);
  a:=(2048-N);
  writeln('a idade da pessoa em 2048 é', a);
  end.

Calcula dia da semana

program diaSemana;
  var dia: integer;
  mes: integer;
  ano: integer;

  function calculaDiaSemana(dia: integer; mes: integer; ano: integer): String;
    var seculo: integer;
         semana: integer;
         MDS: integer;
        nomeDia: String;
    begin

      seculo := ano div 100;

      if (mes < 3) then
        begin
          mes := mes + 12;
          ano := ano - 1;
        end;

      ano := ano mod 100;

      semana := dia + (((mes+1)*26) div 10) + ano + (ano div 4) + (seculo div 4) + (5*seculo);

      MDS := semana mod 7;

      if MDS = 0 then
        nomeDia := 'Sábado'
      else if MDS = 1 then
        nomeDia := 'Domingo'
      else if MDS = 2 then
        nomeDia := 'Segunda-Feira'
      else if MDS = 3 then
        nomeDia := 'Terça-Feira'
      else if MDS = 4 then
        nomeDia := 'Quarta-Feira'
      else if MDS = 5 then
        nomeDia := 'Quinta-Feira'
      else if MDS = 6 then
        nomeDia := 'Sexta-Feira';

      calculaDiaSemana := nomeDia;
   end;

   begin
     writeln('Entre com o dia: ');
     readln(dia);
     writeln('Entre com o mes: ');
     readln(mes);
     writeln('Entre com o ano: ');
     readln(ano);

     if ((dia >= 1) and (dia <= 31) and (mes >= 1) and (mes <= 12) and (ano > 1582)) then
       writeln('O dia da semana é: ', calculaDiaSemana(dia, mes, ano))
     else
       writeln('Data inválida');

  end.

Desenha cubo

program cubo;
{Declarações}

  begin
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(45);
pfrente(40);
pdireita(45);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(180);
un;
pfrente(150);
pdireita(45);
ul;
pfrente(40);
pesquerda(135);
un;
pfrente(150);
pesquerda(45);
ul;
pfrente(40);
un;
pesquerda(45);
pfrente(150);
pesquerda(135);
ul;
pfrente(40);
dr;
  end.

Desenha casinha (quadrado com triangulo em cima)

program desafio5fvmluisacosta;
{Declarações}

  begin
clrscr; 
ul;
pfrente(200);
pdireita(90);
pfrente(200);
pdireita(90);
pfrente(200);
pdireita(90);
pfrente(200);
un;
pdireita(90);
pfrente(200);
pdireita(30);
ul;
pfrente(200);
pdireita(120);
pfrente(200);
dr;

  end.

Classifica multiplicidade de um número

program classificamultiplicidade;

  var numero: integer;

begin

  writeln('Digite um numero');

  readln(numero);

  while (numero>0) do

      begin

        if numero mod 3 =0 then

           begin

             if numero mod 5 =0 then

                begin

                  writeln('M35');

                  writeln('Digite um numero');

                  readln(numero);

                end

              else

                begin

                  writeln('M3');

                  writeln('Digite um numero');

                  readln(numero);

                 end

           end

        else

           begin

             if numero mod 5 =0 then

                begin

                  writeln('M5');

                  writeln('Digite um numero');

                  readln(numero);

                end

             else

                begin

                  writeln('Nao multiplo');

                  writeln('Digite um numero');

                  readln(numero);

                end

           end

      end

end.

Desenha uma circunferencia

program circunferencia;
{Declarações}
var C:integer;
  begin
  for C:= 1 to 360 do
     begin
       pfrente(1);
       pdireita(1);
     end;
dr;

  end.

Peso ideal de um homem e de uma mulher

program calculaPesoIdealHomemMulher;
 
  var alturaHomem: real; {altura de um homem que se queira saber o peso ideal}
      alturaMulher: real; {altura de uma mulher que se queira saber o peso ideal}
  function calculaPesoIdealHomem(altura: real): real;
    begin
      calculaPesoIdealHomem := 22*(altura*altura);
    end;
  function calculaPesoIdealMulher(alt: real): real;
    begin
      calculaPesoIdealMulher := (20.8)*(alt*alt);
    end;


begin
    writeln('Digite a altura de um homem: ');
    readln(alturaHomem);
    writeln('O peso ideal é: ', calculaPesoIdealHomem(alturaHomem));
    writeln('Digite a altura de uma mulher: ');
    readln(alturaMulher);
    writeln('O peso ideal é: ', calculaPesoIdealHomem(alturaMulher));
end.