помoгите пл3, ато до сессии не допустят(

[UNSTOPABLE]

Задача 1)даны вещественные положительные числа а,6,с . Если существует треугольник со сторонами а,6,с то определить, является ли он прямоугольным
Задача 2)дан текстовый файл, состоящий из цифр и букв. Напечатать в алфавитном порядке все строчные русские буквы, входящие в этот текст.
Задача 3)дана последовательность слов. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:
а) в слове нет повторяющихся букв
б)слово симметрично

[p51x]

http://programmersforum.ru/forumdisplay.php?f=29

[dosha]

var x,y,z:real;
begin
writeln ('Vvedite 1 storony treugolbnika');
readln (x);
writeln ('vvedite 2 storony treygolbnika');
readln (y);
writeln ('vvedite 3 storony treygolbnkia');
readln (z);
if (x+y>z) and (x+z>y) and (y+z>x)
then
begin
 writeln ('treyogolbnik mozhno postoritb');
 if sqr(x) + sqr(y) -sqr(z) = 0 then write (' tip pryamoi');
end
else writeln ('nelbzya');
end.

[UNSTOPABLE]

спс за первую)

ещё 2 помогите плз)