Даны числа a,b,c. Составить программу, выводящую на экран сообщение, в зависимости от того какой треугольник можно построить с такими длина сторон: равносторонний,равнобедренный или какой либо другой.

Вот ещё одна

Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.

Пожалуйста  ребят.

Первая

Program n1;Uses CRT;Var a,b,c,k: integer;beginWriteln('Vvedite a,b,c');Readln(a,b,c);If (a=b)and(b=c) then begin k:=1; writeln('Ravnostoronnij') end elseIf (a=b)or(b=c)or(a=c) then begin k:=1; writeln('Ravnobedrennij'); end;If (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a)) then begin k:=1; writeln('Pryamoygolnij'); end;If (a>b+c)or(b>a+c)or(c>a+b) then begin k:=1; writeln('treygolnik nelza sostavit'); end;If k=0 then writeln('Treygolnik Raznostoronnij');readlnend.

Вторая 

Program n1;Uses CRT;Var a,b,c: integer;beginClrScr;Writeln('Vvedite a,b,c');Readln(a,b,c);If (a>0)and(b>0)and(c>0) then writeln('Summa kvadratov=',sqr(a)+sqr(b)+sqr(b));If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('Summa =',a+b+c,', Proizvedenie =',a*b*c);readlnend.