Var a,b:byte;
Procedure AK(x:byte; Var y:byte;);
Begin
Writeln(x,' ',y);
X:=x+4;
Y:=y+8;
Writeln (x,' ',y);
End;
Begin
a=5; b=7;
TD(a;b);
Writeln (a,' ',b);
Readln.
End.
Sửa lỗi sai và cho biết kết quả
Loga
Sinh Học lớp 12
