Для тех, кто хорошо знает паскаль

Отвечу на ваш главный вопрос - вам действительно будет очень сложно, это нелегкий труд и много здоровья и сил будет потрачено для изучения языка программирования Паскаль. Вы не определились с целью - для чего вам все это нужно. Ваши способности, я уверен, немалые! Однако психика не дает их растрачивать на дела, лишенные цели и смысла. И чем дальше в Паскаль будете проникать, тем труднее будет. А должно быть наоборот.

Определайтесь и решайте! Возможно, этоим не стоит заниматься, а возможно просто необходимо.

1) VAR a,b,c:real;
BEGIN
readln(a);
readln(b);
readln(c);
if ((a+b)>c)AND((a+c)>b)AND((c+b)>a) then writeln('МОЖНО ПОСТРОИТЬ')
else writeln('НЕЛЬЗЯ');
readln;
END.

2)VAR a,b,c:real;
BEGIN
readln(a);
readln(b);
readln(c);
if (a=b)AND(a=c)AND(c=b) then writeln('РАВНОСТОРОННИЙ')
else
if (a=b)OR(a=c)OR(c=b) then writeln('РАВНОБЕДРЕННЫЙ')
else writeln('РАЗНОСТОРОННИЙ');
readln;
END.

3)VAR a,b,c:real;
BEGIN
readln(a);
readln(b);
readln(c);
if (a*a+b*b=c*c)OR(b*b+c*c=a*a)OR(c*c+a*a=b*b)
then writeln('ПРЯМОУГОЛЬНЫЙ')
else writeln('НЕ ПРЯМОУГОЛЬНЫЙ');
readln;
END.

а точнее найдите в яндексе....

Можно начинать ?

ЭЭээээээээээээээ....

1,1: if a+b=c or a+c=b or c+b=a then write( возможно) else (нет)
1.2 if a=b=c then write (равносторонний) ;
if a=b or b=c or a=c then write(равнобедренный) else write (разностор. )
1.3 if a^2=b^2+c^2 и так далее, то прямоугольный

Не правильно. Правильно так:
1. 1) if a+b>c and a+c>b and c+b>a then write( возможно) else (нет)

:D: D ну ты смешной )) Неужто ты из Латвии и ходишь на курсы программирования "Progmeistars" ?
Я буквально недельку назад написал первые три программы которые тебе нужны ) Но сейчас к сожалению выложу только одну из них! )
программка которая, напишет какой треугольник (по сторонам и углам) , вам лишь надо ввести стороны треугольников )
http://yy.lv/download.php?f=113365