Program Example3; uses Crt; var a,b,c,P,S :real; begin write('Nhap vao canh : '); readln(a,b,c); If (a