Задача целочисленной арифметики.Паскаль

[rasti92]

Ребята,помогите решить задачу!Очень надо,желательно к понедельнику
Найти все четвёрки простых чисел,меньших чем М(М<10(в степени 6)),которые принадлежат одному десятку.Например:11,13,17,19.

[Vanta11a]

Огласите либо наработки, либо бюджет на сие мероприятие.

[rasti92]

Сообщение от Vanta11a

Огласите либо наработки, либо бюджет на сие мероприятие.

Имеется код С#,но вся проблема в том,что задачу надо сделать на Паскале.В этом коде было использовано решето Эратосфена.

using System;

namespace TempConsoleProject {
class Program {
static int[] AddToArray(int[] arr, int val) {
int[] result = new int[arr.Length + 1];
for (int i = 0; i < arr.Length; i++) {
result[i] = arr[i];
}
result[result.Length - 1] = val;
return result;
}
static int[] SimleNumbers(int arg) {
int[] result = new int[0];

bool[] bArray = new bool[arg];
for (int i = 0; i < arg; i++) {
bArray[i] = true;
}

int[] iArray = new int[arg];
for (int i = 0; i < arg; i++) {
iArray[i] = i;
}

for (int i = 2; i * i < bArray.Length; i++) {
if (bArray[i]) {
for (int j = 2 * i; j < bArray.Length; j += i) {
bArray[j] = false;
}
}
}

for (int i = 2; i < arg; i++) {
if (bArray[i] == true) {
result = AddToArray(result, iArray[i]);
}
}

return result;
}
static void Main(string[] args) {
Console.Write("N = ");
int N = int.Parse(Console.ReadLine());
int[] smpl = SimleNumbers(N);
int decRows = (N - (N % 10)) / 10 + 1;
int[][] dec = new int[decRows][];
for (int i = 0; i < decRows; i++) {
dec[i] = new int[0];
}
foreach (int i in smpl) {
int k = int.Parse((i / 10).ToString().Split(new char[] { '.' })[0]);
dec[k] = AddToArray(dec[k], i);
}
for (int i = 0; i < decRows; i++) {
if (dec[i].Length==4) {
foreach (int k in dec[i]) {
Console.Write(k + " ");
}
Console.WriteLine();
}
}
Console.ReadLine();
}
}
}

[warca]

ну если вы пишете в C#,то в чем же проблема для вас,перевести ее в паскаль?

[rasti92]

Сообщение от warca

ну если вы пишете в C#,то в чем же проблема для вас,перевести ее в паскаль?

к сожалению проблема.я этот код нашёл в сети