MaxComDiv.pas

   1 program MaxComDiv;\r
   2 \r
   3 function mcd( a, b: integer ): integer;\r
   4 \r
   5 var\r
   6    aux: integer;\r
   7 \r
   8 begin\r
   9      if a < b then\r
  10         begin\r
  11              aux := a;\r
  12              a := b;\r
  13              b := aux;\r
  14         end;\r
  15      if (a mod b) <> 0 then\r
  16         mcd := mcd( b, a mod b )\r
  17      else\r
  18         mcd := b;\r
  19 end;\r
  20 \r
  21 const\r
  22      MAX = 5;\r
  23 \r
  24 type\r
  25     arr = array[1..MAX] of integer;\r
  26 \r
  27 var\r
  28    numero: arr;\r
  29    i: integer;\r
  30 \r
  31 begin\r
  32      for i := 1 to MAX do\r
  33          begin\r
  34               write("Ingrese el ", i : 1, "§ numero: ");\r
  35               readln(numero[i]);\r
  36          end;\r
  37      for i := 1 to max - 1 do\r
  38         writeln("El MCD de ", numero[i] : 1, " y ", numero[i+1] : 1, " es ", mcd(numero[i], numero[i+1]) : 1);\r
  39 end.\r