PROGRAM THAM_SO;VAR A, B

3. Program Tham_so;

Var a, b: integer;

Procedure Nhan_biet_ts(x: integer; var y: integer);

begin

x:=x-1; y:=y-1;

writeln(x: 6; y: 6);

end;

Begin

a:=1; b:=4;

………?………

writeln(a: 6; b: 6);

End.