Pascal-Java2

[N_P_A]

program Array;
var
R:integer; // количество различных элементов в данном массиве. 
N:integer;
j,i:integer; // счетчики в цикле 
a: array [1..10] of integer;
bol:boolean; // флаг нахождения элемента 
begin
// ввод данных 
writeln('Введите N (N<=10)');
readln(N);
// ручной ввод значений массива 
for i:=1 to n do begin write('a[',i,']=');readln(A[i]);end;
R:=0; // присвоение начального значения 
for i:=1 to n-1 do // цикл для прохождения по массиву 
begin
bol:=true; // присвоение начального значения 
for j:=i+1 to n do
begin
if (a[i]=a[j])and(i<>j) then bol:=false; //цикл для проверки элементов от определяемого до конца массива. 
end;
if bol then inc(R); // если элемент неимеет похожих элементов подсчитываем его 
end;
// вывод результата 
writeln('количество различных элементов = ',R);
end.

[Человек_Борща]

Покажи, что уже сам написал.

[Serge_Bliznykov]

Поясните мне, пожалуйста, кто понял, что нужно TC...
Подозреваю, что нужно перевести данный код с Pascal на Java ?
А условие решаемой задачи восстановить по коду программы? Или то, какая задача решается вообще никого не интересует?!!

[Bugrimov]

Интересует конечно... Очень. Действительно, какое задание? Что должна делать программа?