Free Pascal编程语言题目高手速度进谢谢

你好，我想我可应帮忙：
第一题
program
pandingsanjiaoxing;
var
a,b,c:real;
begin
readln(a,b,c);{读入三边}
if
(a+b>c)
and
(a+c>b)
and
(b+c>a)
then{判定是不是三角形}
begin
write('Yes,and
it
is
');
if
(a=b)
or
(a=c)
or
(c=b)
then{判定是不是等腰三角形}
begin
if
(a=b)
and
(a=c)
then{判定是不是等边三角形}
writeln('Deng
bian
san
jiao
xing')
else
if
(a*a+b*b=c*c)
or
(a*a+c*c=b*b)
or
(b*b+c*c=a*a)
then{判定是不是等腰直角三角形}
writeln('Deng
yao
zhi
jiao
san
jiao
xing')
else
writeln('Deng
yao
san
jiao
xing');
end
else
if
(a*a+b*b=c*c)
or
(a*a+c*c=b*b)
or
(b*b+c*c=a*a)
then{判定是不是直角三角形}
writeln('Zhi
jiao
san
jiao
xing')
else
writeln('Yi
ban
san
jiao
xing');{不符合以上条件，则是一般三角形}
end
else
writeln('Bu
shi
san
jiao
xing');{都不符合，则不是三角形}
readln;
end.
第二题
program
mark;
var
n:integer
{n表示成绩}
begin
readln（n）；
if
（n>=85）
and
（n<=100)then
writeln('very
good')
else
if
(n>=60)
and
(n<85)
then
writeln('good')
else
if
(n<60)
and
(n>=0)
then
writeln('unsatisfied')
else
write(error);
end.
好了，我都是亲自编的，调试过了，没有问题，祝你学业有成。