Напишите паскаль программы

#include <iostream>

using namespace std;

int main()

{

int num;

cin >> num >> num;

int* ans = new int[num];

for (int jjj = 0; jjj < num; jjj++) cin>> ans[jjj];

for (int jjj = 1; jjj < num; jjj++) {

 if (ans[jjj - 1] != ans[jjj] - 1) cout << ans[jjj - 1] << ",";

 else {

  cout << ans[jjj - 1];

  int kkk = jjj;

  for (kkk; kkk < num; kkk++)

                         if (ans[kkk - 1] != ans[kkk] - 1) break;

  if (kkk - jjj > 1) cout << "-" << ans[kkk - 1];

  else cout << "," << ans[kkk - 1];

             jjj = kkk;

  if (num - jjj) cout << ",";

 }

 if (num - jjj == 1) cout << ans[jjj];

}

}

(Обозначим: n - вводимое число; m - дубликат числа n; а - перевертыш числа n; i - переменная цикла для создания перевертыша.)

program prim3;

uses crt;

var n, m, a, i: integer;

begin

clrscr;

(Введем четырехзначное целое число.)

writeln('N<=9999'); readln(n)

(Запоминаем введенное целое число и задаем начальное значение перевертыша.)

m:=n;а:=0;

(Организуем цикл с параметром от 1 до 4.)

for i:=l to 4 do

(Находим перевертыш числа N)

begin

а:=а*10+ m mod 10; m:= m div 10;

end;

(Если A=N, то данное число является перевертышем.)

if a=n then writeln('DA!')

else writeln('NO');

readln;

end.