program FindDuplicateNumbers;

var
  numbers: array[1..50] of integer;
  i, j: integer;
  duplicateFound: boolean;

begin
  // Nhập dãy số
  writeln('Nhập vào một dãy số (tối đa 50 số):');
  for i := 1 to 50 do
  begin
    readln(numbers[i]);
    if numbers[i] = 0 then // Kết thúc nhập dãy số khi nhập giá trị 0
      break;
  end;

  // Tìm và hiển thị các số trùng nhau
  writeln('Các số trùng nhau trong dãy số là:');
  for i := 1 to 49 do
  begin
    for j := i + 1 to 50 do
    begin
      if (numbers[i] = numbers[j]) and (numbers[i] <> 0) then
      begin
        writeln(numbers[i]);
        duplicateFound := true;
        break; // Thoát khỏi vòng lặp nếu đã tìm thấy số trùng nhau
      end;
    end;
  end;

  if not duplicateFound then
    writeln('Không tìm thấy số trùng nhau trong dãy số.');
  readln;
end.