viết chương trình nhập 3 số a b c của một tam giác .Đưa ra màn hình chu vi và diện tích tam giác

Program TamGiac;
Uses crt;
Var a, b, c, s, p: extended;

Begin
        Clrscr;
        Write('Nhap do dai 3 canh: '); Readln(a, b, c);
        p := (a + b + c) / 2;
        s := sqrt(p * (p - a) * (p - b) * (p- c));
        Writeln('Chu vi = ',p * 2 : 0 : 2);
        Write('Dien tich = ',s :0 : 2);
        Readln
End.

uses crt;

var a,b,c:integer;

p:real;

begin

clrscr;

write('nhap a:');readln(a);

write('nhap b:');readln(b);

write('nhap c:');readln(c);

clrscr;

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

writeln('Chu vi hinh tam giac la: ',a+b+c);

write('Dien tich hinh tam giac la: ,sqrt(p*(p-a)*(p-b)*(p-c)):0:2);

readln;

end.