Viết chương trình pascal tính chu vi và diện tích hình tam giác . GIÚP MÌNH VỚI Ạ

Program Example3;uses Crt;var a,b,c,P,S :real;begin write('Nhap vao 3 canh : '); readln(a,b,c); If (a<b+c) and="" (b<a+c)="" (c<a+b)="" then="" begin="" p:="(a+b+c)/2;" s:="sqrt(p*(p-a)*(p-b)*(p-c));" writeln('3="" canh="" ban="" vua="" nhap="" la="" 3="" cua="" 1="" tam="" giac.');="" writeln('chu="" vi="" giac="" :="" ',p*2:4:2,'="" cm');="" writeln('dien="" tich="" ',s:4:2,'="" end="" else="" khong="" giac');="" readlnend.="" <br="">

     Program Hotboy ;

     Uses crt;

     Var a,b,c,p,S: real;

     Begin

     clrscr;

     Write('Nhap canh a:');readln(a);

     Write('Nhap canh b:');readln(b);

     Write('Nhap canh c:');readln(c);

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

     S:= sqrt(p*(p-a)*(p-b)*(p-c));

     Write('Dien tich hinh tam giac la',s:3:6);

     Write('chu vi cua hinh tam giac          la',a+b+c);

     Readln

     End.