Массивы, работа с файлами.

[Freestyle]

Здавствуйте всем! помогите пожалуста с задачами! вот задача которую я решил но не могу найти ошибку в коде

Ромб и шар, может ли шар радиуса R пройти сквозь ромбовидное отверстие с диагоналями P и Q.

   Var
       R, Q, P, B:integer;
      Begin
  Writeln(R) {Raduyc LLIapa}
  Writeln(P) {1 duagonal pomba}
  WRiteln(Q) {2 duagonal pomba}
  
 B:=P/2*sin(atan(Q/P));
 If B>=R then writeln('LLIap proidet 4ere3 pomb');
 if R>B then writeln('Net, LLIap He proidet');
 end.

и вот еще несколько задач которые не могу решить
1 Определить, есть ли в последовательности три рядом стоящих числа, которые могут выражать длины некоторого треугольника.

2 Дан массив из N целых чисел, каждое в диапазоне от –32000 до 32000.
Задание: Создать программу с использованием процедур или функций, .
Примечание: Числа, подлежащие обработке, при распечатке исходного массива, отметить отличающимся цветом.
Задание: Удалить из массива числа-палиндромы с нечетным количеством цифр

3 Задание: Текстовый файл содержит изображения целых знаковых чисел.
После их чтения и обработки результаты также помещаются в выходной текстовый файл в виде символьных изображений чисел.
При открытии входного файла следует выполнить проверку существования файла с заданным именем. Содержимое входного и выходного файлов выводить на экран, причем предусмотреть отключение этой функции. При распечатке входного файла искомые числа выделить отличающимся цветом.
Дан текстовый файл с изображениями целых чисел. В выходной файл поместить те из них, которые имеют только четные цифры. Пример: 2462 8204 44 и т.д.
На экран вывести количество чисел во входном файле, количество чисел в выходном файле, размер входного и выходного файла в байтах.


Помогите пожалуста кто может! я зачет не могу сдать по ним