程序例: begin var xl: real var z1: real X1:=0.5 z1:三x1+55 write( z1 +5.5) read( x1) z1:=z1+x1 end程序例： begin var x1:real ; var z1:real ; x1 := 0.5 ; z1 := x1 + 55 ; write( z1 +5.5 ); read( x1 ) ; z1 :=z1 + x1 end