program q; var a,b,c,d, a1, b1, c1,p :integer; var e :real; begin a:=0; b:=0; c:=0; d:=0; read (a , b , c ,d); a1:=a-d; b1:= b-d; c1:= c-d; p:= (a1+b1+c1)/2; e:= sqrt(p*(a1-p)*(b1-p)*()c1-p)); write (e:5); end.
6 8 10 1
prog.pas: In main program: prog.pas:10: error: incompatible types in assignment prog.pas:11: error: syntax error before `)' prog.pas:11: error: syntax error before `-'
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!