Program thi_hk2; Var a,b,c : real; Procedure vidu (x: integer; y,x: real ):real; Var tong: real; Begin x:= x+1; y:= y-x; z:=z+y; tong:=x+y+z; Writeln(x,’ ’,b,’ ‘,z,’ ‘,tong); End; BEGIN a:=3; b:=4; c:=5; vidu(a,b,c); Wreadln End. a.trong chương trình trên có lỗi, hãy sửa lỗi để chương trình chạy được ? B. Hãy xác định tham số hình thức trong chương trình trên