Program Teste_de_Mesa;

Procedure  Altera (A, B : Integer );
Var
  C:Integer;
Begin
  Writeln ('Dentro da Altera - In¡cio: A,B,C = ',A,' - ',B,' - ',C);
  A := 10;
  B := 10;
  C := 10;
  WriteLn ('Dentro da Altera - Fim: A,B,C = ',A,' - ',B,' - ',C);
End;

Var
  A, B, C: Integer;
Begin
  A := 1;
  B := 2;
  C := 3;
  WriteLn ('Antes da Altera: A,B,C = ',A,' - ',B,' - ',C);
  Altera (B, A);
  WriteLn ('Depois da Altera: A,B,C = ',A,' - ',B,' - ',C);
  ReadLn;
End.