Cho chương trình sau:Program ChuongTrinh; Var a, b, S : byte; Procedure TD(Var x

Câu hỏi :

Cho chương trình sau:

Program Chuong_Trinh;
Var a, b, S : byte;
Procedure TD(Var x : byte ; y : byte);
Var i : byte;
Begin
i := 5;
writeln(x,‘ ’, y);
x := x + i ;
y := y + i ;
S := x + y ;
Writeln(x,‘ ’, y);
End;
Begin
Write(‘nhập a và b : ’);
Readln(a, b);
TD(a,b);
Writeln(a,‘ ’, b, ‘ ’, S);
Readln;
End.

Trong chương trình trên có các biến toàn cục là: