Переведите с Java на Паскаль, пожалуйста.

[alesak764@gmail.co]

package com.company;

import java.util.Arrays;

import java.util.Scanner;

public class Main {

   public static void main(String[] args) {

       Scanner sc = new Scanner(System.in);

       System.out.print("Введите размер массива: ");

       int size = sc.nextInt();

       int[] myArray = new int[size];

       System.out.print("Заполните элементы массива: ");

       for(int i=0; i<size; i++) {

           myArray[i] = sc.nextInt();

       }

       System.out.print("Одинаковые элементы: ");

       for(int i=0; i<myArray.length; i++) {

           for (int j=i+1; j<myArray.length; j++) {

               if(myArray[i] == myArray[j]) {

                   System.out.println(j);

               }

           }

       }

   }

}

[Desc]

А Вам зачем это нужно?
Чисто интерес, зачем такой геморой, если есть исходник? Компиль и пользуй, тра-та-та и все такое.
Или есть момент?

[Алексей_2012]

var size,j,i:integer;
    a:array of integer;
begin
  writeln('Введите размер массива: ');
  readln(size);
  setlength(a,size);
  
  writeln('Заполните элементы массива...');
  
  for i:=0 to size-1 do
  begin
    writeln('Введите ',i+1,' элемент: ');
    readln(a[i]);
  end;
  
  writeln;
  writeln('Одинаковые элементы: ');
  
  for i:=0 to size -1 do 
    for j:=i+1 to size-1 do   
      if a[i]=a[j] then 
        writeln('Элемент с индексом ',j,' и значением a[',j,'] = ',a[j] ,'они последние встречающиеся элементы в массиве...');
  
  
  writeln('Нажмите ENTER для выхода!');
  readln;
  a:=nil;
end.