Pascal/Turbo Pascal - aaaaa

#include <stdio.h>;

int main(
{

int num[ ]={4,7,3,5};
int b=3;
int c,i,fin;

if(b>1)
{
for(i=1,fin=b,c=num[0];i<fin;i++){
if (c>=num[i])
num[i-1]=num [i];
else {
aux=num[fin];
num[fin]=num[i];
num[i]=aux;
fin--;
i--;
}
}
num[i]=c;
f1(num,i);
f1(num+i+1,b-i);
}
return;
}

#include <stdio.h>;

int main(
{
int array[ ]={4,2,1,6};
int longitud=4;
int cont,pasos,temp,i;
for(count=(--longitud)/2;cont!=0;cont/=2)
for(pasos=1;pasos!=0; )
{
pasos=0;
for(i=cont;i<(lontidud);i++)
if(array[i-cont]>array[i])
{
temp=array[i];
array[i]=array[i-cont];
array[i-cont]=temp;
pasos++;
}
}
}

return;
}

este es el foro de pascal , no el de java, pero explica la especificacion, saludos

¿Es Java o C++?

Tengo esa duda