Nhập vào 3 cạnh a,b,c bất kì, Kiểm tra xem nó có thể là độ dài 3 cạnh của 1 tam giác hay không. Ngược lại tính diện tích và chu vi của tam giác ra màn hình ( Pascal) Helpppppp meeeeeee!!!!!!!

program sksk;
uses crt;
var a, b, c, p, s, cv : real;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai canh b :');readln(b);
write('nhap so dai canh c :');readln(c);
if (a + b > c) and (a + c > b) and (b + c > a) then
begin
writeln(a:4:1, b:4:1, c:4:1,' la do dai ba canh tam giac');
p := (a + b + c)/2;
s := sqrt(p - (p - a) * (p - b) * (p - c));

cv := a + b + c;
writeln('dien tich tam giac la :', s:8:2);

writeln('chu vi tam giac la :', cv:8:2);
end
else writeln(a:4:1, b:4:1, c:4:1,' khong la do dai ba canh tam giac');
readln
end.

uses crt;
var a,b,c,p,s:real;
begin
clrscr;
    read(a,b,c);
    if(a + b > c) and (b + c > a) and (c + a > b) then
        writeln('3 canh la canh tam giac')
    else
        begin
            p:=(a + b + c) / 2;
            writeln(p);
            writeln(sqrt(p * (p - a) * (p - b) * (p - c)):0:2);
        end;
readln; readln;
end.