Pascal/Turbo Pascal - ayudita con q imprime! GRAX

Program EjemploParametros;
Uses Wincrt;
Var
A,B,C : Integer;
Procedure Imprimir (D, E, F : Integer);
Begin
WriteLn ('A = ', D:1, ' ':5,'B = ', E:1,' ':5,'C = ', F:1)
End;
Procedure Pasar (D,E : Integer; Var F : Integer);
Begin
Writeln ('Entrada al procedimiento Pasar');
Imprimir (D, E, F);
F := D * E;
WriteLn ('Salida del procedimiento Pasar');
Imprimir (D, E, F)
End;
Begin
A := 2;
B := 3;
C := 4;
WriteLn ('Antes de llamar al procedimiento Pasar');
Imprimir (A, B, C);
Pasar(A, B, C);
WriteLn ('Después de llamar al procedimiento Pasar');
Imprimir (A, B, C);
End.

Que imprime?:
-Antes de llamar al procedimiento Pasar

-Entrada al procedimiento Pasar

-Salida del procedimiento Pasar

-Después del retorno del procedimiento Pasar



Si alguien me puede ayudar...se los agredezco!!! muchas grax!

ya lo solucionee muchas grax =!!!!