Записать с конструктора множество простых чисел близнецов из интервала 36

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=[11,13,17,19,23,29,31];
  Writeln(s); // проверка, если множество - будет неупорядоченно
end.

Результат
{31,13,29,11,23,19,17}

{Автор:       Рудницкий В. Л.
Ограничения: Последовательность не может быть длинее NN.
Откуда:      Олимпиада, KZ, 2016.}
const  NN = 10000;
var  a  : array [1 .. NN] of integer;  i, j, d, N: integer;
begin
  write('Введите длину массива: '); readln(N);
  writeln('Введите массив чисел через пробел:');
  for i := 1 to N do    read( a[i] );
  { Удаляем повторы чисел }
  for i := 1 to N-1 do
    for j := i+1 to N do
      if a[i] = a[j] then a[j] := 0;
  { Создаем последовательность заполняя не нужные числа нулями }
  for i := 2 to N do    if ( a[i-1] > a[i] ) and ( a[i] <> 0 ) then a[i] := 0;
  { Суммируем не нулевые элементы }
  d := 0;  for i := 1 to N do    if a[i] <> 0 then d := d + 1;
  writeln('Максимальная длинна массива после удалений: ',d);
end.

#include <stdio.h>
#include <math.h>

int main(){
    const float a=2.5, b=0.4;
    float t,w;
    for(t=-1.0;t<1.0;t+=0.2){
        if (t<0.1)
            w=a*t*t+b*sin(t)+1;
        else if (t==0.1)
            w=a*t+b;
        else
            w=sqrt(a*t*t+b*cos(t)+1);
        printf("t=%f, w=%f\n",t,w);
    }
    return 0;
}
Результат выполнения программы:
t=-1.000000, w=3.163412
t=-0.800000, w=2.313058
t=-0.600000, w=1.674143
t=-0.400000, w=1.244233
t=-0.200000, w=1.020532
t=-0.000000, w=1.000000
t=0.200000, w=1.221485
t=0.400000, w=1.329821
t=0.600000, w=1.493363
t=0.800000, w=1.696668
t=1.000000, w=1.927724


Process exited after 0.08651 seconds with return value 0
Для продолжения нажмите любую клавишу . . .