Lập chương trình nhập vào tọa độ 3 đỉnh A (xa,ya); B(xb,yb);C(xc,yc) của 1 tam giâc. tính chu vi và diện tích

Nếu có sai thì nói mình nhé.

============================

program Hello;
uses crt;
var xa,xb,xc,ya,yb,yc,S,AB,BC,CA,C:real;
begin
    write('Toa do dinh A, x - y: '); readln(xa,ya);
    write('Toa do dinh B, x - y: '); readln(xb,yb);
    write('Toa do dinh C, x - y: '); readln(xc,yc);
    S := 0.5*abs((xb-xa)*(yc-ya)-(xc-xa)*(yb-ya));
    writeln('Dien tich: ', S:1:1);
    AB:=sqrt((xb-xa)*(xb-xa)+(yb-ya)*(yb-ya));
    BC:=sqrt((xc-xb)*(xc-xb)+(yc-yb)*(yc-yb));
    CA:=sqrt((xa-xc)*(xa-xc)+(ya-yc)*(ya-yc));
    C:=AB+BC+CA;
    writeln('Chu vi: ', C:1:1);
end.

uses crt;

var xa, xb, ya, yb, xc, yc : integer;

a, b, c, p, cv, s : real;

begin

clrscr;

write('Nhap toa do diem A : '); readln(xa, ya);

write('Nhap toa do diem B : '); readln(xb, yb);

write('Nhap toa do diem C : '); readln(xc, yc);

c := sqrt(sqr(xb - xa) + sqr(yb - ya));

a := sqrt(sqr(xc - xb) + sqr(yc - yb));

b := sqrt(sqr(xa - xc) + sqr(ya - yc));

cv := a + b + c;

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

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

writeln('Chu vi tam giac : ', cv : 2 : 2);

writeln('Dien tich tam giac : ', s : 2 : 3);

readln

end.