Var a,b,c,h,s,p:real;
Begin
Write('Nhap do dai canh thu nhat ');readln(a);
Write('Nhap do dai canh thu hai ');readln(b);
Write('Nhap do dai canh thu ba ');readln(c);
Write('Nhap chieu cao ung voi canh thu nhat ');readln(h);
s:=a*h/2;
p:=a+b+c;
Writeln('Dien tich la ',s:10:2);
Write('Chu vi la ',p:10:2);
Readln;
End.