TG PASCAL

var a, b, c, cv: longint;
    p, s: real;
begin
    assign(input, 'tg.inp');reset(input);
    assign(output, 'tg.out');rewrite(output);
    read(a, b, c);
    cv:= a + b + c;
    p:= cv/2;
    s:=sqrt(p*(p – a)*(p – b)*(p – c));
    writeln('Chu vi la ',cv);
    writeln('Dien tich la ',s :0 :2) ;
end.