Cho biết kết quả sau khi thực hiện chương trình sau: a, Var i, j:integer; Begin j:=0; for i:=0 to 5 do j:=j+2; writeln (‘

Cho biết kết quả sau khi thực hiện chương trình sau:
a,
Var i, j:integer;
Begin
j:=0;
for i:=0 to 5 do j:=j+2;
writeln (‘j=’ ,j);
Readln
End.
b,
Var x, y :integer;
Begin
x:=7; y:=6;
If x>y then x:=x+y essen x:=x-y;
Writeln(‘x=’ ,x);
Readln
End.
Giúp mik với ạ