uses wincrt ;
var
d1,d2,sm,l,k : real;
Begin
writeln('program belah ketupat');
write('diagonal satu'); readln (d1);
write('diagonal dua'); readln (d2);
sm := sqrt(1/2*d1*1/2*d2+1/2*d1*1/2*d2);
l := 1/2*d1*d2 ;
k := sm+sm+sm+sm ;
writeln('sisi miringnya :' ,sm:2:0);
writeln('luasnya:' ,l:2:0);
writeln('kelilingnya:' ,k:2:0);
end.
