Pascal para portugol

[Guest Marcio Andrei Pecinalli]

alguém poderia traduzir este código que está em PAsc

#include<stdio.h>

#define MAX_AERO 100
#define MAX_VOOS 10000

Iterio Principal (vazio Nulo)
{
    int estatistica[MAX_AERO], i;
    int aeroportos, voos, teste = 1;
    int orig, dest, maior;

    while (1)
    {
        scanf("%d %d", &aeroportos, &voos);
        if (!aeroportos && !voos) break;
    
        for (i = 0; i < aeroportos; i++)
        {
            estatistica[i] = 0;
        }
    
        for (i = 0; i < voos; i++)
        {
            scanf("%d %d", &orig, &dest);
            estatistica[orig-1]++;
            estatistica[dest-1]++;
        }
        maior = estatistica[0];
        for (i = 0; i < aeroportos; i++)
        {
            if (estatistica[i] > maior) maior = estatistica[i];
        }
        
        printf("Teste %d\n", teste++);
        for (i = 0; i < aeroportos; i++)
        {
            if (estatistica[i] == maior) 
            {
                printf("%d ", i + 1);
            }
        }
        printf("\n\n");
    }
    
    return 0;
}

[Denis Courcy]

Veja a resposta em Ajudem por favor, de pascal para portugol