program t13;
var
  x : integer ;
procedure show (a : integer) ;
begin
  x := a
end ;
begin
  show (3)
end.