масив+геометрия

[123love]

Помогите плиз с задачками!
1. если в масиве есть хотя бы одна пара одинаковых соседних элементов, то напечатать все елементы, следующие за элементами первой из таких пар.
2. Даны вещественные положительные числа a,d,c,b. Выяснить, можно ли прямоугольник со сторонами a,b уместить внутри прямоугольника со сторонами c,d так, чтобы каждая из сторон одного прямоугольника была паралельна или перпендикулярна каждой стороне второго прямоугольника!!!
Очень надо решить задачи!!
можно и в С++, или в Pascal

[DoDge_VipeR]

если в масиве есть хотя бы одна пара одинаковых соседних элементов, то напечатать все елементы, следующие за элементами первой из таких пар.

k:=0;
for i:=1 to n-1 do
if a[i]=a[i+1] then begin k:=i+1;break;end;
if k<>0 then
 for i:=k to n do
write(a[i],'  ')
else writeln('Пар нет');

2. Даны вещественные положительные числа a,d,c,b. Выяснить, можно ли прямоугольник со сторонами a,b уместить внутри прямоугольника со сторонами c,d так, чтобы каждая из сторон одного прямоугольника была паралельна или перпендикулярна каждой стороне второго прямоугольника!!!

if (a<=c) and (b<=d) then writeln('можно')
else if (a<=d) and (b<=c) then writeln('можно')
else writeln('Нельзя');

[123love]

ДЯКУЮ ДЯКУЮ!!!!