PASCAL, полпрограммы, файлы.

[murchyk1]

Пожалуйста, помогите кто чем может!
1.Даны вещественные числа х1, у1, x2, y2, ..., x5, у5. Найти
площадь пятиугольника,вершины которого имеют координаты (х1, у1), (x2, y2), ..., (x5,у5). Определить функцию для расчета площади треугольника по координатам его вершин.
2.Даны три слова. Выяснить, является ли хоть одно из них
палиндромом («перевертышем»), то есть читается ли оно одинаково слева направо и справа налево. При решении определите
функцию, позволяющую распознавать слова-палиндромы.
3.Оформить процедурой преобразование натурального многоразрядного числа так, чтобы его цифры располагались в убывающем порядке.
4.Заполнить файл последовательного доступа F целыми числами, полученными с помощью генератора случайных
чисел. Получить в файле G все компоненты файла F, исключив повторные вхождения чисел, и вывести файл G на печать.
5.Дан файл T, который содержит номера телефонов
сотрудников учреждения: указываются фамилия, инициалы
и номер телефона. Найти номер телефона сотрудника по его
фамилии и инициалам.

[Stilet]

палиндромом («перевертышем»)

http://www.programmersforum.ru/searc...earchid=250852

[alex_fcsm]

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

2.Даны три слова. Выяснить, является ли хоть одно из них
палиндромом («перевертышем»), то есть читается ли оно одинаково слева направо и справа налево. При решении определите
функцию, позволяющую распознавать слова-палиндромы.

uses crt;
var   s,s1,s2:string;
    
function p(x:string):boolean;
var i:integer;
    f:boolean;
    
begin
f:=true;;
for i:=1 to length(x) do
 if UpCase(x[i])<>UpCase(x[length(x)-i+1]) then f:=false;
p:=f;
end;
    
begin
readln(s);
readln(s1);
readln(s2);
if (p(s))or(p(s1))or(p(s2)) then writeln('yes')
   else writeln('no');
end.