перевести с кода C++ на Pascal... - Компьютерный форум OSzone.net

помогите перевести с C++ на PASCAL...

вот код:

Код:

#include <iostream.h>

#include <stdio.h>

#include <stdlib.h>

#define RND ((float) rand()/32768.0)

void main()

{

int n=4,i,j, d;

double a [4][4], temp;

printf("d= ");

scanf("%d", &d);

printf("-----DO-----\n");

for (i=0;i<n;i++)

{ for (j=0;j<n;j++)

{ a[i][j]=RND*(50);

printf(" %5.0lf ",a[i][j]);

}

printf("\n");

}

// сдвиг

for(j=0; j<d; j++)

{

temp=a[0][0];

for(i=0; i<n*4-5; i++)

{

if(i<n-1)

a[0][i]=a[0][i+1];

if(i>=n-1 && i<2*n-2)

a[i-n+1][n-1]=a[i-n+2][n-1];

if(i>=2*n-2 && i<3*n-3)

a[n-1][3*n-i-3]=a[n-1][3*n-i-4];

if(i>=3*n-3 && i<4*n-5)

a[4*n-i-4][0]=a[4*n-i-5][0];

}

a[4*n-i-4][0]=temp;

}

//

printf("\n-----POSLE-----\n");

for (i=0;i<n;i++)

{ for (j=0;j<n;j++)

printf(" %5.0lf ",a[i][j]);

printf("\n");

}

}

очень нужно((((