Знатоки Паскаля ХЕЛП!!!!

[cornholio]

На уроке Паскаля обматерил препода (просто он достал) и озверевший препод подкинул работы (20 задач) Почти все сделал тока вот осталось немного... Надеюсь на ваше понимание и взываю о помощи!!
1.Написать программу, определяющую чередуются ли в линейном массиве степени двойки и тройки.
2.Задан массив чисел А[1:N,1:M],упорядоченный по возрастанию по строкам и столбцам, т.е.: А[I,1]<А[I,2]<...<А[I,M] (при всех I), А[1,J]<A[2,J]<...<А[N,J] (при всех J). Найти элемент массива, равный заданному числу Х и отпечатать его индексы (I,J). Напечатать слово "НЕТ", если такого элемента не окажется. Х можно сравнить не более, чем с M+N элементами массива.
3.Написать программу, которая выдаст словами название введенного действительного числа.
4. В линейном массиве каждый элемент встречается дважды. Какие два равных элемента наиболее удалены друг от друга?

[_Dmitry]

Обматери еще раз и уже не препод, а сержант с капитаном "доставать" будут, заставлять плац топтать за забором. Как говорится, почувствуйте разницу.

[cornholio]

Я это уже осознал... так что не кто не поможет и меня в боты?

[Alex21]

Сообщение от cornholio

и меня в боты?

<off>Не боись, туда без экзаменов берут </off>

[Versifikator]

program asdf;
var chislo:integer;
str:string;
begin
writeln('Введите число');
readln(chislo);
case chislo of
0:str:='Ноль';
1:str:='Еденица';
2:str:='Два';
3:str:='Три';
4:str:='Четыре';
5:str:='Пять';
6:str:='˜Шесть';
7:str:='Семь';
8:str:='Восемь';
9:str:='Девять';
end;
writeln(str);
readln;
end.

[cornholio]

хоть один откликнулся (спасибо тебе), мот кто ее что нибудь напишет плз!!!!

[Plague]

задача 4

  m:=0;
  for i:=1 to n do
    for j:=i to n do
      if a[i]=a[j] then
        if abs(i-j)>m then
          begin
             m:=abs(i-j);
             t:=i;
             k:=j;
          end;
    writeln('Element = ',a[t]);
    writeln('Index = ',t,' and ',k);

[cornholio]

Сообщение от Plague

задача 4

  m:=0;
  for i:=1 to n do
    for j:=i to n do
      if a[i]=a[j] then
        if abs(i-j)>m then
          begin
             m:=abs(i-j);
             t:=i;
             k:=j;
          end;
    writeln('Element = ',a[t]);
    writeln('Index = ',t,' and ',k);

Огромное те человеческое спасибо....
Все тему можно закрывать - справился сам)