Помогите написать на PascalABC программу

я вам обязательно помогу. Только вы мне сдалаете одолжение. Оцените мой ответ как лучший, так как сталкиваться с паскалем мне не в первой. Ок ?

p := (a + b + c) / 2.0;

if (a < p) and (b < p) and (с < p) then writeln('существует') else writeln('не существует');

if (a = b) and (b = c) then writeln('равносторонний');

if (a = b) or (b = c) or (a = c) then writeln('равнобедренный');

uses crt;
var a,b,c,t,P:integer;
h,S:real;
begin
writeln('введите длины сторон треугольника abc ');
readln(a,b,c);
t:=0;
if (a+b>c) and (b+c>a) and (c+a>b) then
begin
writeln('такой треугольник существует!');
readln;
t:=t+1;
end
else
begin
writeln('такой треугольник НЕ существует!');
readln;
end;
if t=1 then
begin
if (a=b) and (a<>c) then
begin
writeln('Треугольник равнобедренный');
readln;
P:=a+b+c;
h:=sqrt(sqr(a)-sqr(c/2))
S:=0.5*h*c;
writeln('Периметр р\б треугольника=',P);
readln;
writeln('Площадь р\б треугольника=',S:0:1);
readln;
end;
if (a=c) and (a<>b) then
begin
writeln('Треугольник равнобедренный');
readln;
P:=a+b+c;
h:=sqrt(sqr(a)-sqr(b/2))
S:=0.5*h*b;
writeln('Периметр р\б треугольника=',P);
readln;
writeln('Площадь р\б треугольника=',S:0:1);
readln;
end;
if (b=c) and (b<>a) then
begin
writeln('Треугольник равнобедренный');
readln;
P:=a+b+c;
h:=sqrt(sqr(c)-sqr(a/2))
S:=0.5*h*a;
writeln('Периметр р\б треугольника=',P);
readln;
writeln('Площадь р\б треугольника=',S:0:1);
readln;
end;
if (a=b) and (a=c) then
begin
writeln('Треугольник равносторонний');
readln;
P:=a+b+c;
h:=(a*sqrt(3))/2;
S:=0.5*h*a;
writeln('Периметр р\б треугольника=',P);
readln;
writeln('Площадь р\б треугольника=',S:0:1);
readln;
end;
if (sqr(a)=sqr(b)+sqr(c)) then
begin
writeln('Треугольник прямоугольный');
readln;
P:=a+b+c;
S:=0.5*b*c;
writeln('Периметр р\б треугольника=',P);
readln;
writeln('Площадь р\б треугольника=',S:0:1);
readln;
end;
if (sqr(c)=sqr(b)+sqr(a))then
begin
writeln('Треугольник прямоугольный');
readln;
P:=a+b+c;
S:=0.5*b*a;
writeln('Периметр р\б треугольника=',P);
readln;
writeln('Площадь р\б треугольника=',S:0:1);
readln;
end;
if (sqr(b)=sqr(a)+sqr(c)) then
begin
writeln('Треугольник прямоугольный');
readln;
P:=a+b+c;
S:=0.5*a*c;
writeln('Периметр р\б треугольника=',P);
readln;
writeln('Площадь р\б треугольника=',S:0:1);
readln;
end;
end;
end.