1．输入三角形的三个边，判断它是何类型的三角形（等边三角形？等腰三角形？一般三角形？）。

Pascal语言不太了解。用c#给你写一个吧。反正逻辑都一样，基本语法也差不多。
public string caculate(int a,int b,int c){
if (a<=0 || b<=0 || c<=0) {
return "不是三角形";
}
if ((a+b<=c) || (a+c<=b) || (b+c<=a)){
return "不是三角形";
}
if (a==b && b==c){
return "等边三角形";
} else if (a!=b && b!=c && a!=c){
return "一般三角形"
} else {
return "等腰不等边三角形"
}
}

var a,b,c:longint;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('等边三角形') else
if (a=b)or(b=c)or(a=c) then writeln('等腰三角形') else
writeln('普通三角形');
end.

var a,b,c:longint;
begin
readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then begin {判断任意两边之和是否等于第三边，否则不是三角形！}
if (a=b)and(b=c) then writeln('等边三角形');
if (a=b)or(b=c)or(a=c) then writeln('等腰三角形')else
writeln('普通三角形&