uses crt;
var a,b,c,h: integer;
s,cv: real;
begin
clrscr;
write ('nhap a: '); readln (a);
write ('nhap b: '); readln (b);
write ('nhap c: '); readln (c);
write ('nhap h: '); readln (h);
s:=a*h/2;
cv:=a+b+c;
writeln ('chu vi: ',cv:1:2);
writeln ('dien tich: ',s:1:2);
readln;
end.