$#QLinkVN$

Code:

program QLinkVN;
uses crt;
var a, b, c, cv, dt, p:real;
begin
clrscr;
write('Nhap do dai canh a: ');readln(a);
write('Nhap do dai canh b: ');readln(b);
write('Nhap do dai canh c: ');readln(c);
p:=(a+b+c)/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac la: ', dt:0:2);
writeln('Duong cao canh thu 1 la: ', dt*2/a:0:2);
writeln('Duong cao canh thu 2 la: ', dt*2/b:0:2);
writeln('Duong cao canh thu 3 la: ', dt*2/c:0:2);
readln end.

$\text{program Hieudz613;}$
$\text{uses crt;}$
$\text{var a, b, c, cv, dt, p:real;}$
$\text{begin}$
$\text{clrscr;}$
$\text{write('Nhap do dai canh a: ');readln(a);}$
$\text{write('Nhap do dai canh b: ');readln(b);}$
$\text{write('Nhap do dai canh c: ');readln(c);}$
$\text{p:=(a+b+c)/2;}$
$\text{dt:=sqrt(p*(p-a)*(p-b)*(p-c));}$
$\text{writeln('Dien tich tam giac la: ', dt:0:2);}$
$\text{writeln('Duong cao canh thu 1 la: ', dt*2/a:0:2);}$
$\text{writeln('Duong cao canh thu 2 la: ', dt*2/b:0:2);}$
$\text{writeln('Duong cao canh thu 3 la: ', dt*2/c:0:2);}$
$\text{readln}$

$\text{end.}$