Mọi người giúp mình với: Viết chương trình tính diện tích và chu vi của hình tam giác theo độ dài a,b,c cho trước; Tin lớp 8 ạ

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 tam giac la:',s:10:2);
readln;
end.

Program BTT;
Uses crt;
Var a,b,c,p,s: real;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        Write('Nhap c: '); Readln(c);
        p:=(a+b+c)/2;
        s:=sqrt(p*(p-a)*(p-b)*(p-c));
        Writeln('Chu vi = ',2*p:0:2);
        Write('Dien tich = ',s:0:2);
        Readln
End.